MM  IN 


AUTOMATED  INTERIOR  LIGHTING  DESIGN  SOFTWARE  FOR  RASE 
CIVIL  ENGINEERSOU)  AIR  FORCE  INST  OF  TECH 
HRIOHT-PATTERSON  AFB  OH  SCHOOL  OF  SVST. .  T  A  GRIMES 
UNCLASSIFIED  SEP  87  AFIT/GEM/LS8/87S-8  F/O  13/1 


AD- A 186  895 


t 

I 

i 


r 

t 

i 


m  FILE  COM 

r 

☆ 


DTIC 

SELECTE 

DEC  0  31987 


\  DEPARTMENT  OF  THE  AIR  FORCE 

i  AIR  UNIVERSITY 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 


Wrighf-PaUerson  Air  Force  Base,  Ohio 


g  ♦  -d* '4.1 'a.*  i.t 


*u  i».  t». 


m 


AF I T/GEM/LSQ/87S-8 


^  {  . 

i.  , 


<-  3  J887 


AUTOMATED  INTERIOR  LIGHTING  DESIGN 
SOFTWARE  FOR  BASE  CIVIL  ENGINEERS 


THESIS 


Todd  A.  Grimes 
GS-13 


AF IT/GEM/LSQ/87S-S 


t  - . 


I/)-/! 


Approved  for  puplic  release;  distribution  unlimited 


Copyright  Todd  A.  Grimes  1987 


■  J  iL'll.  I).  I*.  V.  I'tl'U  li  1.1  *->  M 


The  contents  of  the  document  are  technically  accurate,  and  no 
sensitive  items,  detrimental  ideas,  or  deleterious  information  is 
contained  therein.  Furthermore,  the  views  expressed  in  the 
document  are  those  of  the  author  and  do  not  necessarily  reflect 
the  views  of  the  School  of  Systems  and  Logistics,  the  Air 
University,  the  United  States  Air  Force,  or  the  Department  of 
Defense. 


AFIT/GEM/LSQ/87S-8 


AUTOMATED  INTERIOR  LIGHTING  DESIGN  SOFTWARE 
FOR  BASE  CIVIL  ENGINEERS 

THES  !  S 

Presented  to  the  Faculty 
of  the  School  of  Systems  and  Logistics 
of  the  Air  Force  Institute  of  Technology 
Air  University 

In  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Master  of  Science  in  Engineering  Management 


Todd  A.  Grimes,  B.S. 

GS-13 

September  1987 

Approved  for  public  release;  distribution  unlimited 
Copyright  Todd  A.  Grimes  1987 


Acknowledgments 

During  the  seemingly  long  and  drawn  out  process  ot 
writing  this  thesis.  1  have  received  a  great  deal  of  help 
from  others.  At  the  start,  Major  Bill  Bierck  accepted  the 
responsibility  of  advisership.  His  constant  coaxing  about 
the  writing  of  Chapter  11,  made  it  what  it  is  today. 

Lt  Col  Dick  Peschke.  originally  my  Reader,  kindly  took 
me  under  his  wing  after  Major  Bierck  went  PCS.  Lt  Col 
Peschke,  in  the  role  of  Reader  and  eventual  Advisor  was  a 
great  help  both  as  a  "sounding  board"  and  as  a  "morale 
booster."  Many  thanks! 

As  for  a  constant  source  of  help.  1  must  also  thank  my 
wife,  Jill.  Not  only  did  she  put  up  with  my  "moods."  but 

she  constantly  encouraged  me  "just  to  get  done."  After  ! 


inevitably  lost  Chapter  II  to  the  whims  of  the  computer. 
Jill  devotedly  retyped  until  it  was  done  --  again.  To  you 
Jill,  my  love  and  my  thanks.  While  I  am  on  family,  1 
cannot  forget  to  thank  also  my  children,  Rebecca.  Nicolas, 
and  Joel.  Their  non-understanding  understanding,  and 
"Daddy’s  working  --  leave  him  be"  behavior  was  beyond 
reproach.  Love  and  thanks  to  you  too,  kids. 

I  cannot  end  without  also  giving  thanks  to  the  Spirit 
of  God,  who  I  believe  kept  me  going  through  it  all. 


'odd  A .  Grimes 


i  i 


Table  of  Contents 


Page 


Acknowledgments  .  ii 

List  of  Charts  .  v 

List  of  Figures .  vi 

List  of  Screens .  vii 

List  of  Tables  .  viii 

Abstract  .  ix 

I.  Introduction  .  1.1 

General  Issues . .  .  1.1 

Background .  1.3 

Specific  Problem . .  1.10 

Objective  .  1.12 

II.  Interior  Lighting  Design  .  2.1 

Chapter  Overview  .  2.1 

Genera  1  2.3 

Information  Requirements  .  2.4 

Room  Information .  2.6 

Luminaire  Information  .  2.20 

Calculations  .  2.36 

Conclusion .  2.52 

III.  Program  Considerations  and  Development  3.1 

Genera  1 .  3.1 

Pre-programming  Considerations  .  .  3.1 

Programming  Considerations  ....  3.2 

Actual  Program  Development  ....  3.5 

Actual  Program  Usability  .  3.6 

IV.  Program  Validation  .  4.1 

Verification  .  4.1 

LIGHTlA’s  Solution .  <+.1 

V.  Conclusions  and  Recommendations  ...  5.1 

Conclusions  .  5.1 

Recommendations  .  5.3 


jr* 


List  of  Charts 


Chart  Page 

2.1  Room  Information  .  2.20 

2.2  Luminaire  Information  .  2.35 

2.3  Interior  Lighting  Design  Results  .  2.53 


'  v;  v-.’  n'jvjmv.T/',  v/w  7wv'.  r."  ~w» 


List  of  Fi gures 


Figure 


2.1  Room  Cavities 


2.2  Luminaire  Spacing 


2.3  Luminaire  Dirt  Depreciation  Factor 


2.4  RSDD  Factors 


Page 


2.30 


2.  39 


2.41 


2.5  Fixture  and  CU  Chart 


3.1  Menu  Screen  Comparison 


iV**«  «*»  » >*  *v  ^  *»  ** ».  • 


List  o f  Screens 


Screen 


4.1  Initial  Room  Information  Screen 

4.2  Completed  Room  Information  Screen 


4.3  Light  Source  Choices  Screen 

4.4  Luminaire  Information  Screen 


Page 


4.5  First  Screen  of  Calculation  Results  .  . 

4.5  Second  Screen  of  Calculation  Results 


List  of  Tab  1 es 

Table 

2.1  Allowable  FC  Levels  . 

2.2  Color  Reflectance  Ratios  . 

2.3  Effective  Reflectances  . 

2.3  Effective  Reflectances  (continued)  . 

2.4  Room  Dirt  Conditions  . 


2.  5 
2.  6 
2.  7 
2.  8 
2.  9 
2.  10 


2.  11 
2.  12 


Lamp  Efficiencies  . 

Lamp  Color  Rendition  Chart  .... 

Typical  Use  Areas  .  . 

Luminaire  Distribution  Types  .  .  . 

Luminaire  Maintenance  Categories 
Lamp  Wattage  and  Lumen  Ratings  .  . 

Luminaire  Dirt  Depreciation  Constants 
Floor  Reflectance  Multiplying  Factors 
Hardcopy  of  Calculation  Results  .  . 


AFIT/GEM/LSQ/87S-8 


Abs  tract 

Lighting  design  is  a  critical  part  of  all  building 
design  processes  for  both  new  construction  and  renovation 
work.  Performing  lighting  design  properly  takes  a  large 
amount  of  time  and  effort.  The  primary  objective  of  this 
thesis  effort  was  to  develop  a  computer  software  package 
that  would  help  base  engineers  perform  the  calculation 
stage  of  interior  lighting  design  quickly  and  accurately. 

Because  the  base  engineer  will  have  available  to  him 
many  different  types  of  computer  systems,  a  second 
objective  of  this  thesis  was  to  make  the  program  as 
transportable  between  computer  systems  as  possible.  The 
primary  system  that  the  program  was  designed  for  was  the 
Wang  pc  system  because  of  its  wide  spread  use  within  the 
Civil  Engineering  community. 

The  program  developed  for  this  thesis  effort  is 
entitled  LIGHT1A,  and  uses  the  Zonal  Cavity  Method  of 
lighting  design.  L1GHT1A  was  developed  to  be  menu  driven 
to  enhance  user  friendliness,  and  has  a  large  data  base 
filing  system  to  allow  the  base  engineer  to  store  a  number 
of  lamp,  fixture,  and  room  color  criteria.  L1GHT1A  was 
programmed  in  the  language  of  BASIC  to  allow  transport¬ 
ability  between  computer  systems,  and  has  been  tested  on 
the  Wang  pc,  the  Zenith  Z-248,  and  the  TeleVideo  XL. 


AUTOMATED  INTERIOR  LIGHTING  DESIGN  SOFTWARE 
FOR  BASE  CIVIL  ENGINEERS 


I  .  I ntroduct i on 


Genera  1  1 ssues 

Interior  lighting  design  is  one  of  the  many  important 
duties  that  must  be  performed  by  design  engineers  during  a 
construction  project.  This  is  true  whether  the  project  is 
the  renovation  of  a  single  room  or  an  entire  building.  It 
also  applies  to  most,  if  not  all,  new  construction 
projects.  If  accomplished  properly,  the  lighting 
installation  will  help  ensure  that  the  total  construction 
project  has  a  professional  appearance.  Also,  if  the 
lighting  design  is  considered  at  the  beginning  of  a  design 
project,  instead  of  as  an  afterthought,  "...the  lighting 
and  the  architecture  can  become  one  cohesive  system  in 
meeting  the  occupant’s  needs"  (33:38). 

"Visual  accuracy  is  not  all  there  is  to  a  person’s 
need  for  light  (10:140)."  Not  only  can  a  person’s 
perceptions  of  an  area  be  affected  by  the  lighting  pattern 
(33),  but  quality  lighting  can  increase  the  performance  of 
the  user  (10).  A  well  designed  lighting  system  has  many 
positive  effects  for  the  user.  Two  of  these  positive 
effects  are  overall  safety  in  the  area  and  the  aspect  of 
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increased  task  visibility.  Also,  a  good  lighting  system 


can  reduce  the  fatigue  and  unnecessary  eye  strain  that 
results  from  poor  lighting  (7:70).  Also  studies  have  shown 
that  the  quality  and  intensity  of  light  might  very  well 
affect  the  biological  reactions  of  people  (29)(30).  "Light 
controls  biological  rhythms,  regulates  production  of 
hormones,  and  affects  metabolism  of  specific  areas  in  the 
brain  (30:11)."  Simply  stated,  "Research  conducted  in  the 
last  few  years  has  revealed  a  number  of  mechanisms  by  which 
light  affects  our  productivity,  health,  biologic  rhythms, 
moods,  and  general  sense  of  well  being  (31:4).” 

A  problem  exists  doing  lighting  designs.  Design 
engineers  either  spend  a  great  amount  of  time  performing 
proper  design  calculations  and  comparison  designs 
(comparing  different  lighting  designs  for  the  best  "fit"), 
or  they  use  shortcut  techniques  to  allow  them  to  "get  the 
lob  done."  Design  time  for  the  typical  design  engineer  is 
valuable,  and  shortcut  methods  which  produce  minimally 
acceptable  lighting  designs  are  widely  used.  Fortunately, 
there  is  a  solution.  With  the  use  of  a  computer,  and  the 
proper  software,  design  engineers  can  produce  quality 
lighting  designs  in  less  time,  while  forgoing  less  than 
acceptable  shortcut  methods.  Computers  can  help  design 
engineers  efficiently  pull  iogether  the  large  amount  of 
data  that  is  required  by  good  lighting  designs  (10). 
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But,  what  computer  system  is  best  in  supporting  the 
design  engineer?  Personal  computer  (pc)  systems  such  as 
the  Zenith  Z-100,  along  with  IBM  compatibles  like  the 
Zenith  Z-150  and  Z-248  series,  and  the  TeleVideo  XL  are  all 
available  to  the  base  engineers  if  their  bases  can  afford 
to  supply  them.  The  Wang  computer  system,  on  the  other 
hand,  has  been  selected  to  support  the  Air  Force  Work 
Information  Management  System  (W1MS),  and  has  been  awarded 
a  contract  currently  known  as  the  Air  Force  Minicomputer 
Multi-User  System  (AMMUS)  (13).  The  WIMS  system  is 
specifically  intended  to  supporting  the  Civil  Engineering 
community  of  the  Air  Force.  The  AMMUS  contract  calls  for 
the  Wang  computer  system  to  be  installed  at  153  Air  Force 
locations  in  support  of  the  WIMS.  Since  this  computer 
system  will  be  widely  available  throughout  the  Air  Force  to 
base  civil  engineering  groups,  it  is  logical  for  the  base 
engineer  to  use  it  for  as  many  applications  as  possible, 
including  lighting  design.  A  software  package  on  lighting 
design,  capable  of  working  on  the  Wang  computer  system,  and 
as  many  of  the  other  computers  listed  above  as  possible, 
would  be  ideal  for  the  base  design  engineer.  In  this  way, 
no  matter  what  computer  system  the  design  engineer  has 
available,  the  lighting  design  package  could  be  used. 

Background 

To  acquaint  the  reader  with  good  lighting  design 
procedures,  this  background  section  will  summarize  the 
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necessary  steps  that  must  be  taken  by  the  design  engineer- 
while  performing  a  lighting  design.  Although  there  are 
many  ways  tc  calculate  the  amount  of  light  sources  needed 
in  a  certain  space,  the  most  common  one,  the  Zonal  Cavity 
Method,  will  be  described.  For  those  who  want  a  greater 
understanding  of  this  process  in  lighting  design, 

Chapter  II  of  this  thesis  will  provide  a  much  more  detailed 
explanation  of  the  process,  and  also  works  examples  to  help 
in  the  reader’s  understanding. 

There  are  three  major  stages  in  performing  a  lighting 
design.  The  first  stage  is  the  calculation  stage  which 
includes  the  gathering  of  information  necessary  to  perform 
the  ca 1 cu 1  at i ons .  The  second  and  third  stages  are  the 
layout  and  iterative  stages  of  lighting  design.  The  goal 
of  the  first  stage  is  to  calculate  how  many  light  fixtures 
of  a  particular  type  is  needed  to  illuminate  a  surface  to  a 
predetermined  level.  The  second  stage  is  used  to  place  the 
fixtures  in  a  pattern  around  the  room  to  eliminate  any 
"dark"  spots  on  the  surfaces  being  lit.  The  third  stage  is 
the  repeat  stage,  where  the  design  engineer  reworks  the 
calculation  and  layout  stages  over  again  so  that  two  or 
more  designs  can  be  compared  together  to  enable  the  "best" 
design  to  be  picked.  This  may  be  the  most  important  stage 
of  al 1  --  and  is  the  one  that  is  skipped  when  "time  is  of 


the  essence. 


The  second  stage,  the  layout  stage,  of  the  design 
process  can  be  loosely  considered  to  be  an  "art,"  and  most 
of  the  time  will  depend  upon  the  design  engineer’s 
background  and  knowledge.  Many  ru 1 es -of -thumb  exist  for 
the  layout  of  the  lighting  fixtures,  but  all-in-all  the 
final  decision  rests  squarely  on  the  design  engineer’s 
shoulders.  "Good  lighting  design  means  putting  light  -- 
and  the  right  kind  of  light  --  where  it  is  needed” 

(10:140).  Since  this  is  the  case,  no  "canned  program"  can 
tell  the  designer  where  to  ultimately  put  the  light 
f i x  tures . 

As  stated  before,  the  third  stage  of  the  lighting 
design  process,  the  iterative  stage,  is  when  the  design 
engineer  repeats  the  first  two  stages.  Multiple  designs 
are  necessary  because  it  is  unlikely  that  the  design 
engineer  will  choose  the  "best"  design  the  first  time, 
given  that  there  are  so  many  design  criteria  that  must  be 
taken  into  consideration.  This  design  criteria  is  the 
input  information  needed  for  the  first  stage,  the 
calculation  stage.  As  the  following  paragraphs  will 
explain,  there  are  many  different  types  of  lighting 
systems,  including  different  luminaire  types  and  styles,  as 
well  as  different  types  of  lamps  and  ballasts.  There  is  no 
single  "best"  solution  for  all  cases,  even  from  office  to 
office,  and  there  is  always  an  alternative  (7:73).  A1  1 
this  means  is  that  to  do  a  lighting  design  properly,  a 


design  engineer  must  perform  the  design  a  number  of  times, 
each  with  a  little  different  design  concept,  and  then 
choose  the  "best"  design  for  the  given  situation. 

Since  the  second  stage  is  heavily  dependent  upon 
design  engineer’s  choice,  and  the  third  stage  can  be 
skipped  (although  not  recommended  by  this  thesis  effort), 
the  first  stage,  the  calculation  stage,  is  the  stage  of 
primary  interest.  This  is  the  stage,  that,  when  repeated 
takes  the  major  amount  of  time.  The  reason  the  calculation 
stages  take  so  long  to  complete,  is  not  that  the 
calculations  are  long,  but  that  the  information  needed  to 
perform  the  calculations  takes  quite  a  bit  of  time  to 
assemble  and  interpret. 

The  information  requirements  of  the  calculation  sta?e 
can  be  broken  into  two  main  parts,  the  room  information, 
and  the  luminaire  information.  (A  luminaire  can  be 
considered  a  total  light  package,  including  the  fixture,  or 
housing,  the  lens,  the  lamp,  the  ballast  --  if  necessary, 
and  any  other  item  necessary  to  make  the  package  work.) 

The  room  information  necessary  to  perform  a  proper 
lighting  design  include  basic  information  about  the  room 
itself,  and  about  how  the  room  is  used.  Actual  dimensions 
of  the  room  including  its  floor  area  and  the  ceiling, 
luminaire  and  working  surface  heights  must  be  known.  This 
information  is  then  combined  into  "factors"  called  room 
cavity  ratios  (RCR’s)  which  ultimately  help  determine  how 


the  room  allows  the  lignt  to  he  "spread"  out  witnin  it. 
Differently  dimensioned  rooms  will  have  different  RCR 
factors.  Room  surface  reflectances  (how  much  light  a  given 
surface  will  reflect)  is  also  important  information  about 
the  room.  To  use  extremes  as  an  example,  a  room  painted 
totally  white  will  be  much  brighter  than  a  room  painted 
totally  black.  The  reason  for  this  is  that  the  color  white 
reflects  much  more  light  than  does  the  color  black. 

Because  of  this,  tho  actual  room  surface  colors  must  be 
known  to  determine  how  much  light  will  be  reflected  Dack 
into  the  room  from  the  walls,  the  ceiling,  and  the  floor. 

Along  with  the  information  about  the  room  itself, 
information  about  how  the  room  is  used  must  be  known.  The 
actual  activity  performed  in  the  room  will  determine  the 
amount  of  light  that  is  necessary  to  perform  that  activity 
properly.  Hallways  where  people  walk  and  talk  do  not  need 
nearly  the  light  that  is  necessary  in  normal  offices  where 
reading  and  writing  occurs,  and  these  offices  do  not  need 
the  quantity  of  light  that  is  required  in  a  drafting  area, 
or  similar  areas  where  fine  detailed  work  occurs.  The  AFR 
88-15,  Section  16-10,  states  that  all  Air  Force 
installations  will  be  illuminated  to  a  maximum  "ambient 
light  level"  that  matches  its  specific  type  of  usage  (5). 
This  m  >ans  that  for  any  given  room,  the  general  lighting 
level  will  not  exceed  a  certain  amount.  For  example,  all 
general  office  space  will  not  have  any  more  than  50 


footcandles  ^rc>  on  any  given  work  surface.  A  footcandle 
is  the  amount  of  light  a  candle  will  put  out  if  measured 
one  foot  from  the  flame.  Any  additional  light  that  is 
necessary  for  the  user  to  do  his  Job  must  be  supplied  by 
"task  lighting",  for  example,  a  desk  lamp.  Different  rooms 
have  different  "ambient  light  levels"  allowed  for  the  given 
use  of  the  room,  a  conference  room  is  allowed  30  fc,  a 
warehouse  is  allowed  10  fc. 

Closely  tied  to  the  room  usage  is  the  cleanliness 
factors  of  the  room.  Areas  that  have  a  high  level  or  dirt 
accumulation  will  have  very  definite  affects  on  the 
maintained  lighting  level  in  the  area.  As  the  dirt 
accumulates  on  the  rooms  surfaces,  the  surfaces  ability  to 
reflect  light  will  be  reduced.  This  cleanliness  factor  is 
combined  with  other  light  depreciation  factors  inherent  to 
the  luminaire  to  come  up  with  a  total  light  loss  factor 
(LLF)  for  the  lighting  design. 

The  actual  room  dimensions,  the  surface  reflectances, 
the  room  usage  criteria,  and  the  cleanliness  factors  are 
the  information  areas  that  must  be  assembled  under  the  room 
information  part  of  the  calculation  stage  in  lighting 
design.  The  other  part  that  must  be  completed  prior  to  the 
actual  calculations  being  performed  is  the  accumulation  of 
the  luminaire  information.  Whereas  the  room  information  is 
needed  to  figure  out  how  the  room  "uses"  the  light  that  is 


in  it,  the  luminaire  information  is  needed  to  figure  out 
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how  much  light  each  fixture  will  supply  to  the  room  and  how 
it  will  "spread"  out  the  light  that  it  produces. 

Luminaires  come  in  many  types,  styles,  and  sizes.  In 
general,  the  design  engineer  will  consider  the  area  usage 
to  determine  the  type  of  luminaire  to  use.  Most  commonly, 
i ncandescents  are  used  only  for  specialty  lighting  or  for 
very  small  areas  because  of  their  high  energy  consumption. 
Fluorescent  luminaires  are  the  most  common  choice  for 
general  office  type  lighting,  whereas  high  intensity 
discharge  (HID)  luminaires  are  used  primarily  in 
warehousing  and  other  high  ceiling  areas.  (Note  the  words: 
"most  common"  and  "primarily"  are  used  do  to  the  fact  that 
there  are  some  florescent  luminaires  made  for  high  ceiling 
areas,  and  some  HID  luminaires  made  for  office 
applications.)  Once  the  luminaire  type  is  chosen,  the  base 
engineer  must  select  the  particular  style  to  use. 

Luminaire  style  is  important  because  each  style  of 
luminaire  will  have  different  "light  spreading" 
characteristics.  Reflector  shape,  lens  type,  and  internal 
mounting  distance  of  the  lamp  from  the  lens  will  cause  the 
light  to  be  dispersed  from  the  luminaire  in  a  particular 
manner.  One  way  to  measure  the  effectiveness  of  a 
luminaire  in  dispersing  the  light  properly  into  a  room  is 
with  a  Visual  Comfort  Probability  (VCP)  rating.  VCP  is  a 
number  which  represents  the  theoretical  number  of  people 
out  of  100  who  may  be  expected  to  say  that  the  lighting  of 
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designer  to  use  his  time  for  other  design  work"  (6:31). 
Also,  not  only  are  computers  good  for  performing 
calculations,  but  with  the  proper  software,  can  actually 
increase  design  applications  by  increasing  the  conceptual 
based  resources  of  the  engineer  (34:1742).  The  use  of 
computers  in  engineering  work,  such  as  lighting  design,  is 
growing  in  recognition  in  all  parts  of  the  engineering 
community,  and  is  now  being  called  computer-aided 
engineering  (CAE)  (34:1732).  Some  of  the  major  goals 
accepted  for  CAE  systems  are  to:  1)  help  reduce  design 

time;  2)  help  induce  new  ideas  into  designs:  and  3)  help 
train  new  engineers  in  analysis  applications  (34:1744).  By 
incorporating  CAE  into  the  design  engineer’s  options  for 
performing  lighting  designs,  better  designs  can  be 
produced,  with  less  time  involved  in  performing  them  (3). 

As  stated  in  the  general  issues  section,  the  Wang 
computer  system,  since  it  will  be  the  most  widely  available 
computer  system  to  Air  Force  design  engineers  in  Civil 
Engineering,  is  the  primary  choice  for  CAE  work.  Also,  as 
previously  stated  there  are  other  computer  systems 
available  to  many  base  Civil  Engineering  organizations. 
Therefore,  any  CAE  software  that  can  be  developed  for  both 
the  Wang  system  and  as  many  of  these  other  systems  as 
possible  would  be  most  beneficial  Air  Force  wide. 

The  Illuminating  Engineering  Society  ( I ES )  published 
in  the  September  1986  issue  of  its  Lighting  Design  » 


Appi 1  cations  periodical  a  listing  ot  lighting  design 
computer  programs  for  CAE  use  (1).  Of  the  16  program 
suppliers  listed,  11  had  interior  lighting  design  packages 
available.  Telephone  interviews  with  nine  of  these  11 
suppliers  were  performed  to  gain  price  information  and 
computer  system  requirements  (the  other  2  suppliers  were 
recorded  messages ) ( 2 ) ( 8 ) ( 9 ) ( 1 1 ) ( 12 ) ( 21 > ( 22 ) ( 23 ) ( 27 ) .  The 
range  of  prices  for  the  basic  lighting  programs  ran  from 
$420  to  $1700.  All  of  the  programs  required  IBM  compatibl 
computers  to  work.  Only  one  of  the  suppliers  thought  that 
his  program  would  run  on  a  Wang  pc  system,  although  he  had 
never  had  it  tested  on  that  particular  system. 

Five  of  the  program  suppliers  interviewed  fol lowed-up 
with  a  descriptive  package  of  their  particular  program 
( 15 ) ( 16 ) ( 17 ) ( 18 ) ( 19 ) .  Of  these,  the  lighting  design 
program  package  that  looked  the  most  useful  (Zonal  Cavity 
method  and  economic  calculations)  without  extraordinary 
cost,  was  priced  at  $495  (18),  Assuming  that  this  program 
could  be  modified,  if  necessary  and  with  permission,  for 
the  Wang  pc  system,  and  purchased  for  each  of  the  bases 
that  are  to  get  the  Wang  system,  the  cost  would  be  $75,735 
($495  *  153  bases). 


Objective 

The  objective  of  this  thesis  effort  is  to  develop  a 
useful  software  package  on  interior  lighting  design,  for 


use  by  Air  Force  design  engineering  personnel.  Also,  this 


2 


software  package  will  be  developed  to  work  on  as  many 
different  types  of  Air  Force  computers  as  possible,  but 
with  particular  emphasis  on  the  Wang  pc  computer  system. 

For  widest  possible  distribution,  this  software 
package  will  be  available  from  the  electrical  department  of 
the  Air  Force  Institute  of  Technology’s  School  of  Civil 
Engineering  and  Services,  AF1T/DEE. 
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1  1  ■  Interior  Lighting  Design 


Chapter  Overview 

This  chapter  expands  on  the  background  section  in 
Chapter  I.  Detailed  explanations  for  each  aspect  of  the 
room  and  luminaire  information  are  given.  Also  an  example 
of  each  type  of  calculation  is  shown  to  help  the  reader. 

Each  example  given  will  build  upon  examples  preceding  it  to 
show  the  reader  the  entire  process  that  must  be  performed 
to  complete  the  calculation  stage  of  lighting  design. 

As  indicated  in  Chapter  I,  there  are  three  major 
stages  of  work  that  must  be  done  when  performing  a  proper 
lighting  design.  These  areas  are  the  calculation  stage, 
including  the  gathering  of  information  on  design 
requirements;  the  layout  stage;  and  the  iteration  stage. 

During  the  layout  stage,  the  design  engineer  must  ensure 
that  the  number  of  luminaires  determined  by  the  calculation 
stage  will  fit  into  the  given  room.  This  stage  also 
ensures  that  the  distribution  of  light  is  as  even  as 
possible  throughout  the  room.  Although  the  design 
calculations  performed  in  this  project’s  computer  program 
will  give  the  design  engineer  important  criteria  pertaining 
to  the  layout  of  the  lighting  fixtures,  they  will  not 
ensure  that  the  . ayout  is  properly  performed. 

I 

I 

I 
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The  iteration  stage  ot  a  proper  lighting  design  is 
accomplished  when  the  design  engineer  performs  the  stages 
again,  with  different  luminaire  information.  This  stage, 
as  stated  in  Chapter  I,  is  performed  to  ensure  that  the 
"best"  design  is  produced. 

Because  the  layout  stage  is  outside  the  scope  of  this 
project,  and  the  iterative  stage  is  simply  a  re-enactment 
of  the  first  two  stages,  the  scope  of  this  chapter  will  be 
limited  to  describing  the  calculation  stage  of  a  lighting 
design. 

The  ultimate  goal  of  the  calculation  stage  is  to 
determine  the  number  of  luminaires  required  to  light  a 
given  area  to  an  ambient  level.  Prior  to  these 
calculations  though,  information  about  the  area  being 
designed,  and  information  about  the  luminaire  to  be  used 
must  be  known.  This  chapter  will  discuss  these  information 
requirements,  and  then  show  how  this  information  is  used  in 
performing  the  calculations  necessary  to  obtain  the  number 
of  luminaires  needed  for  a  proper  lighting  design. 

It  is  important  to  state  here  that  the  entire 
knowledge  base  for  this  chapter  comes  from  five  major 
sources,  with  one  of  the  sources  being  the  author’s 
knowledge  from  nine  years  of  experience  in  lighting 
design.  The  other  sources  used  to  back  up  this  experience 
are  the  following: 

1)  the  IES  Lighting  Handbook  (14), 
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2)  the  AFR  88-15  (5), 

3)  classroom  handouts  on  lighting  design,  given 
out  by  the  AF I T  School  of  Civil  Engineering  and 
Services  ( 25 ) , 

4)  seminar  notes  and  catalog  data  from  the 
General  Electric’s  basic  lighting  school  in 
Cleveland,  Ohio  (20). 


Genera  1 

Prior  to  performing  the  actual  calculations  to 
determine  the  number  of  lights  required  to  illuminate  a 
given  area  to  an  ambient  level,  information  must  be 
gathered  to  support  the  calculations.  Specific  factors  of 
the  calculations  that  must  be  supported  by  the  gathering  of 
information  are  the  total  light  loss  factor  ( LLF ) ,  the 
coefficient  of  utilization  <CU)  value,  the  total  lumen 
requirements  of  the  room,  and  the  luminaire  spacing 
requirements  used  for  the  layout  stage  of  lighting  design. 
Although  these  factors  will  be  discussed  in  detail  later,  a 
general  description  will  be  given  here  to  help  the  reader 
understand  the  basis  or  need  of  the  information  required  to 
perform  the  calculations. 

The  total  light  loss  factor  (LLF)  is  calculated  by 
combining  all  the  possible  ways  to  decrease  the  light 
actually  given  off  in  the  room  by  the  fixtures.  Factors 
such  as  how  clean  the  room  is,  how  new  the  lamps  are,  and 
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what  kind  of  luminaire  enclosure  is  used  are  included  in 


this  total  LLF.  The  coefficient  of  utilization  (CU)  value 
is  determined  by  combining  how  the  given  area  will  "use" 
the  light  and  how  the  luminaire  itself  will  spread  the 
light  out  over  that  area.  To  calculate  the  total  lumens 
required  in  the  room,  the  above  factors  are  combined  with 
information  about  the  allowable  lighting  level  and  the 
area’s  actual  dimensions.  These  three  factors,  the  LLF, 
the  CU  value,  and  the  total  lumens  required,  along  with 
other  luminaire  information  lead  to  the  final  calculation 
of  the  total  number  of  luminaires  required  in  the  area. 

The  final  factor  in  the  calculations  is  the  determination 
of  the  luminaire  spacing.  Actual  luminaire  information  and 
the  area’s  dimensions  are  combined  to  determine  this 
factor . 

Information  Requirements 

The  Information  requirements  that  support  the 
calculations  can  be  separated  into  two  main  areas,  the  room 
information  and  the  luminaire  information.  Room 
information  includes  items  such  as  room  usage,  size, 
surface  reflectiveness,  and  cleanliness.  The  actual  use  of 
the  room  will  determine  what  lighting  level  is  allowed. 

The  dimensions  of  the  room  must  be  known  to  determine  how 
the  light  can  be  "spread"  out  over  the  area.  The  room’s 
surfaces  will  "reflect"  the  light  given  off  by  the  fixtures 
within  the  room,  and  according  to  how  much  this 


reflection  is,  will  partially  determine  how  many  fixtures 
must  be  used  in  the  area.  The  room  cleanliness  must  be 
known  in  order  to  determine  how  much  of  the  original  room’s 
reflectances  will  be  lost  due  to  dirty  conditions  as  time 
goes  on.  These  for  factors  of  room  information  must  be 
known  prior  to  the  design  calculations  being  performed,  to 
ensure  design  accuracy. 

Luminaire  information  such  as  the  light  source  type, 
the  fixture  type,  and  the  lamp  and  ballast  type  must  also 
be  known.  There  are  three  major  light  source  types 
available  in  many  different  types  of  enclosures  or 
"fixtures. "  Each  different  fixture  type  will  distribute  or 
"spread"  the  light  given  off  by  the  light  source 
differently.  Lamp  information  must  be  known  to  determine 
how  much  "light"  the  chosen  lamp  will  give  off,  and  certain 
types  of  lamps  require  ballasts  to  work  properly.  Ballasts 
also  come  in  many  styles,  although  once  the  lamp  is  chosen, 
the  associated  ballast  choice  is  somewhat  limited.  This 
information  on  the  luminaire  chosen  to  be  used,  must  be 
known  for  input  into  the  design  calculations. 

To  optimize  a  lighting  design,  the  design  engineer 
should  compare  different  lighting  calculations  on  each  room 
under  consideration.  Once  different  calculations  are 
completed  and  compared,  the  "best"  system  can  be  chosen. 
Since  in  this  process  the  room  information  stays  the  same. 


multiple  sets  of  luminaire  information  should  be  assembled 
enabling  different  lighting  systems  to  calculated. 

Room  Information 

Lighting  levels.  The  first  item  that  must  be 
determined  in  a  lighting  design  is  the  allowed  illumination 
level  of  a  room.  To  do  this,  the  room’s  intended  use  must 
be  known.  Will  it  be  an  office,  a  conference  room,  a 
computer  room,  or  something  different?  In  Air  Force 
applications,  the  AFR  88-15  Section  16-10  gives  the  design 
engineer  a  listing  of  allowed  lighting  levels  for  an 
assortment  of  room  types.  Table  2.1  is  a  combination  of 
Tables  16-1  and  16-2  of  Section  16-10  of  the  AFR  88-15 
(5)  . 

It  is  important  to  note  the  written  instructions  that 
go  along  with  these  tables  from  the  AFR  88-15,  especially 
the  parts  that  Indicate  that  these  lighting  levels  are  for 
"general"  or  ambient  illumination,  and  that  "supplementary" 
lighting  must  be  used  if  more  light  is  required  for  a 
specific  task.  It  is  also  important  to  know  that  the  AFR 
88-15  states  that  75  footcandles  (fc)  maintained  is  the 
maximum  illumination  level  allowed,  no  matter  what  the  room 
is  used  for.  (Footcandles  are  the  units  that  quantities  of 
light  are  measured  in.) 

Once  the  illumination  level  is  determined  for  the 
room,  the  design  engineer  must  figure  out  how  the  room 
itself  will  enhance  or  detract  from  the  "spreading"  of 
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Table  2.1  --  Allowable  FC  Levels 


FQQTCANDLES 


Accounting  Rooms 

Auditoriums 

Cafeterias 

Computer  Rooms 

Conference  Rooms 

Corridors 

Drafting  Rooms 

Elevator  Machine  Rooms 

Emergency  Generator  Rooms 

Garage  Entrance 

General  Office  Space 

Janitor’s  Closets 

Kitchens 

Lobbies 

Lounges 

Mechanical  Rooms 
Stairways 
Storage  Rooms 
Switchgear  Rooms 
Toi  1  ets 

Transformer  Vaults 


Warehousing,  Note  1: 
Inactive 
Active-bul k 
Rack 
Bln 


Mechanical  Material  Handling: 
Control  Centers 
Loading  Areas 
Accumulation  Conveyer 
Lines  (unmanned) 


10,  Note  2 
20 

5,  Note  3 


Notes : 
1. 
2. 
3. 


Intensity  measured  4  feet  from  the  floor. 
Main  aisles  may  be  lighted  to  15  fc. 
Specialized  bin  lighting  may  be  provided 
by  user,  as  required. 


light.  The  room  dimensions  and  surface  reflectances  are 
used  to  figure  this  function  out. 

Room  Dimensions  and  Ratios.  The  actual  dimensions  of 
the  room  must  next  be  used  to  figure  out  the  "room  cavity 
ratios.”  All  rooms,  theoretically,  have  three  "room 
cavities,"  although  in  practice  one  or  two  of  these 
cavities  may  be  equal  to  zero.  These  cavities  are  best 
understood  by  looking  at  Figure  2.1  which  is  similar  to 
Figure  9-9  of  the  IES  Lighting  Handbook  (14). 

The  ceiling  cavity  (CCR)  is  the  area  between  the 
actual  room  ceiling  and  the  bottom  of  the  light  fixtures. 
This  cavity  will  be  equal  to  zero  if  the  fixtures  are 
"recessed"  into  or  flush  with  the  ceiling.  The  room  cavity 
( RCR )  is  the  area  between  the  bottom  of  the  light  fixture 
and  the  "working  plane,"  where  the  working  plane  is  defined 
as  the  height  the  activity  in  the  room  is  being  performed 
at.  The  room  cavity  is  never  zero.  The  floor  cavity  ( FCR ) 
is  the  area  between  the  working  plane  and  the  floor  of  the 
room.  This  cavity  may  be  equal  to  zero  if  the  working 
plane  is  the  floor.  The  sizes  and  shapes  of  these  cavities 
affect  the  light  distribution  throughout  the  room. 

Room  Cavity  Ratios  (RCR's)  are  calculated  for  each  of 
the  previously  defined  cavities  to  help  enumerate  just  how 
each  cavity  will  affect  the  lighting  distribution  These 
ratios  are  more  than  just  ratios  for  the  given  areas,  but 
are  also  numerical  descriptions  of  how  the  room  is 


dimensioned.  Two  rooms,  having  the  same  overall  area,  will 
not  have  the  same  distribution  of  light  if  their  physical 
shapes  are  different.  Consequently  they  will  have 
different  RCR  values.  As  an  example,  a  square  room  will 
not  distribute  the  light  the  same  as  a  rectangle  room,  and 
will  require  a  different  fixture  layout,  even  though  both 
rooms  have  the  same  dimensional  areas  (see  Example  2.1). 

The  I ES  Handbook  (14)  gives  the  formula  for  calculating  the 
RCR’s  of  a  given  room  as: 

i 

i 

1 

'  5(H) ( L+W )  /  ( L ) ( W )  (2.1) 

» 

I 

» 

where 


H  =  tho  height  of  the  given  cavity  .3CR,  RCR,  FCR), 
L  =  the  length  of  the  room,  and 

» 

W  =  the  width  of  the  room 

l 

f 
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o  r  : 


2. 5 (H) (P )  /  ( A)  (2.2) 

where 

H  =  the  height  of  the  given  cavity, 

P  =  the  perimeter  measurement  of  the  given  cavity,  and 
A  =  the  area  of  the  given  cavity’s  base  (  i_e_-  .  floor  or 
ce i 1 i ng ) 

Equation  (2.2)  must  be  used  for  rooms  that  have  irregular 
shapes  (rooms  other  than  square  or  rectangle). 


Example  2.1 


Purpose:  To  demonstrate  the  calculation  of  RCR’s. 


Room  #1  dimensions:  length 

width 

ceiling  height 
fixture  height 
working  plane  hgt 


40  ft 
40  ft 
10  ft 
8  ft 
2.5  ft 


Room  #1  Cavity  Ratios: 

CCR  =  (5) (2) (40+40)  /  ( 40 ) ( 40 ) 

=  0.500 

RCR  =  (5 )  ' 5. 5  )  (40  +  40)  /  (40)(40) 
=  1.375 

FCR  =  (5 ) ( 2. 5 ) ( 40+40)  /  (40)(40) 
=  0.625 


(note:  Room  #1  area 


1600  ft2) 


2.  10 


Example  2.1  continued 

Room  #2  dimensions:  length  =  80  ft 

width  =  20  ft 

ceiling  height  =  10  ft 

fixture  height  =  8  ft 

working  plane  hgt  =  2.5  ft 

Room  #2  Cavity  Ratios: 


CCR 

= 

(5)  (2) (80  +  20)  / 

(80) ( 20) 

- 

0.  625 

RCR 

= 

(5) (5.5) (80+20) 

/  (80) (20) 

= 

1.719 

FCR 

(5 ) ( 2. 5 ) ( 30+20) 

/  (30) (20) 

= 

0.  781 

2 

(note:  Room  #2  area  =  1600  ft  ) 

The  informational  requirements  of  the  room  for  the 
above  calculations  are  simply  the  room’s  length  and  width 
(or  perimeter  and  area),  and  the  heights  of  the  ceiling, 
the  light  fixtures,  and  the  working  plane.  With  these 
dimensions,  the  RCR’s  of  the  given  room  can  be  obtained. 
These  values,  along  with  the  room  reflectivity  ratios,  can 
be  combined  to  determine  the  total  room’s  contribution  to 
the  distribution  of  light. 

Room  Surface  Reflectances.  Along  with  determining  how 
the  room  dimensions  allow  light  to  be  distributed  within 
the  room,  the  "surface  reflectances"  of  the  r^om  must  be 
evaluated  to  determine  how  the  light  within  the  room  is 
"reflected"  from  all  non-working  surfaces  onto  the  working 


surface.  In  lighting  design,  each  room  surface,  other  than 
the  working  surface,  will  be  given  a  number  representing 
the  percent  reflectance  for  that  surface.  These  surfaces 
include  the  ceiling,  the  walls,  and  the  floor. 

There  are  two  major  items  that  will  determine  a 
surface’s  percent  reflectance.  The  first  is  the  color  of 
the  surface;  a  white  wall  will  reflect  light  better  than  a 
medium  blue  wall,  which  in  turn  will  reflect  light  better 
than  a  black  wall.  Table  2.2  shows  a  variety  of  colors  and 
their  respective  reflectance  numbers.  If  a  surface  could 
be  made  perfectly  reflective,  it  would  be  assigned  a  number 
of  1.0  ( i e .  100%).  In  other  words,  the  surface  would 

reflect  back  exactly  the  same  amount  of  light  shown  onto 
it.  A  mirror  would  have  a  reflectance  very  close  to  1.0. 
The  reflectances  given  in  Table  2.2  were  determined  in  a 
laboratory  setting  by  the  paint  manufacture,  and  are 
published  and  distributed  along  with  the  manufacturer’s 
color  chip  sets  (sets  of  all  colors  that  are  available, 
normally  given  to  architectural  designers  to  help  in  room 
color  selections)  (4). 

The  second  item  that  must  be  considered  when 
determining  the  reflectivity  of  a  surface  is  the  surface’s 
texture.  A  rough,  pitted  surface  will  not  reflect  as  much 
light  as  a  smooth  surface.  Although  there  are  no  tables  or 
charts  available  to  show  the  "lost"  reflectivity  for 


Table  2.2 


Color  Reflectance  Ratios 


COLOR 

REFLECTANCE 

RATIO  (P  ) 

X 

Cameo  White 

0.86 

Winter  White 

0.  83 

Lemon 

0.84 

Man i 11a  Beige 

0.77 

Pink  Marble 

0. 74 

Butte  Orange 

0. 31 

Lavender  Rose 

0.39 

Pale  Violet 

0.  74 

Violet  Grey 

0.52 

Blue  Daisy 

0.62 

I ceber  g 

0.77 

Crayon  Blue 

0.20 

Colonial  Green 

0.69 

Pastel  Green 

0.69 

Mint  Haze 

0.75 

Silver  Lining 

0. 70 

Dawn  Gray 

0.77 

Sand  Tan 

0.68 

Ocean  Sand 

0.63 

differently  textured  surfaces,  the  design  engineer  must  be 
aware  that  the  loss  exists,  and  adjust  the  reflectances  as 
he  sees  fit. 


If  there  is  a  ceiling  cavity  and/or  a  floor  cavity, 
the  ceiling  and  floor  reflectances  must  be  adjusted  for  the 
amount  of  light  that  is  "lost"  within  that  respective 
cavity.  Some  of  the  light  that  enters  into  those  cavities 
never  reaches  the  working  surface,  and  that  "lost" 
contribution  must  be  subtracted  from  the  respective 
surface’s  reflectance  when  it  is  used  to  determine  the 
room’s  overall  contribution  to  the  lighting  design.  The 


ceiling  and  floor  reflectances  must  be  adjusted  to  what  is 


called  by  the  1ES  Lighting  Handbook  (14)  the  "effective 
reflectances"  if  there  is  a  ceiling  or  floor  cavity 
respectively.  Table  2.3  is  a  reproduction  of  Figure  9-11 
of  the  IES  Lighting  Handbook  (14),  and  gives  the  effective 
reflectances  for  various  cavity  ratios  versus  actual  wall 
and  base  (ceiling  or  floor)  and  reflectances.  The  numbers 
given  in  Table  2.3  can  be  considered  linearly  related  which 
allows  extrapolation  to  be  done  for  non-tabled  numbers. 

Design  information  requirements  to  figure  out  the 
room’s  reflectance  values  are  the  room  surface  colors  and 
textures,  and  the  cavity  ratios  for  the  ceiling  and  floor 
areas.  These  reflectance  values,  along  with  the  previously 
discussed  RCR’s  allow  the  design  engineer  to  assign  numbers 
for  the  room’s  contribution  to  the  distribution  or'  light 
throughout  its  area.  These  numbers  will  be  combined  into 
what  has  been  explained  as  the  "coefficient  of  utilization" 
(CU)  value  which  will  help  calculate  the  number  of  fixtures 
needed  to  light  a  room  to  the  proper  level.  This  procedure 
is  accomplished  after  the  luminaire  information  is 
identified,  and  a  fixture  is  chosen. 


Examp  1 e  2.2 

Purpose:  To  calculate  an  effective  ceiling  cavity 

reflectance  ratio  for  Room  #1  of  Example 

2.  1  . 


Room  Information: 


Ceiling  Cavity  Ratio  (CCR) 


0.  5 


ec 
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Example  2.2  continued 


From  Table  2.2: 

Ceiling  Color:  Winter  White 

reflectance:  (P  )  =  0.83 

c 

Wall  color:  Silver  Lining 

reflectance:  (P  )  =  0.70 

w 

Ceiling  Cavity  effective  reflectance: 

From  Table  2.3  Table  Read i n 

with  base  reflectance  =  0.80 

and  wall  reflectance  =  0.70 

for  CCR  =  0.4 

for  CCR  =  0.6 

s  t 

1  extrapolation: 

for  CCR  =  0.5  P  .  .  .  =  0.775 

ef  f  A  - 

with  base  reflectance  =  0.90 

and  wall  reflectance  =  0.70 

for  CCR  =  0.4 

for  CCR  =  0.6 

2nc*  extrapolation: 

for  CCR  =  0.5  P  =  0.85 

6  r  f  d 

Final  extrapolation  (between  P  &  P  ): 

6 I  I  A  ef to 

for  ceiling  reflectance  =  0.83 
and  wall  reflectance  =  0.70 

Ceiling  Cavity  Effective  Reflectance  (P  )  =  0.78 

cc 

Room  Cleanliness.  Prior  to  discussing  the  luminaire 
information  requirements,  one  last  item  must  be  determined 
under  the  topic  of  room  information  requirements.  This 


Item  is  the  room’s  "dirt  condition."  In  most  construction, 
when  new  lighting  is  installed  in  an  area,  the  area  is  left 
in  a  relatively  "clean"  state.  Fixtures  are  new,  painted 
surfaces  are  fresh,  and  the  general  condition  of  the  area 
is  good.  Unfortunately,  in  most  cases,  the  area  starts  to 
accumulate  dirt  after  a  period  of  time.  Periodic  cleaning, 
at  least  in  offices,  is  good,  but  fixtures  are  normally  not 
cleaned  and  walls  almost  never  get  washed.  Dirty  fixtures 
and  surfaces  cannot  give  off  or  reflect  as  much  light  as 
they  did  when  new,  causing  the  room’s  lighting  conditions 
to  be  less  than  optimal.  Table  2.4  is  similar  to  Figure 
9-4  of  the  IES  Lighting  Handbook  (14)  which  separates  room 
cleanliness  into  "five  degrees  of  dirt  conditions."  The 
design  engineer  must  determine  what  degree  the  given  area 
best  fits  into,  and  record  this  condition  for  reference 
when  calculating  a  total  light  loss  factor  (LLF)  in  the 
calculation  stage  of  the  design.  The  length  of  time 
between  overall  cleaning  must  also  be  noted,  or  guessed  at, 
by  the  design  engineer  for  calculation  of  the  LLF.  This 
time  is  normally  recorded  in  months,  with  a  good  guess 
being  between  24  and  36  months  from  cleaning  to  cleaning. 

Summary ■  Determining  the  room  information 
requirements  is  the  first  step  in  performing  a  proper 
lighting  design.  The  room’s  actual  use,  the  dimensional 
contribution  to  the  distribution  of  light  including  both 


Table  2.4 


Room  Dirt  Conditions 


Very  Clean 

Clean 

Hediua 

Dirty 

Very  Dirty 

Generated  Dirt 

None 

Very  Little 

Noticeable 
but  not 
heavy 

Accuaulates 

rapidly 

Constant 

accuaulation 

Aabient  Dirt 

None  (or 
none  enters 
area) 

Soae  (alaost 
none  enters) 

Soae  enters 
area 

Large  aaount 
enters  area 

Alaost  none 
excluded 

Reaoval  or 
Filtration 

Excel  lent 

Better  than 
average 

Poorer  than 
average 

Only  fans  or 
blowers  if 
any 

None 

Adhesion 

None 

Slight 

Enough  to 
be  visible 
after  soae 
aonths 

High  -- 
probably  due 
to  huaidity, 
oil  or  static 

High 

Examples 

High  grade 
offices,  not 
near 

production; 
clean  rooas 

Offices  in 
older  bldgs 
or  near 
production 

Hill 

offices; 

paper 

processing 

Heat 

treating; 
high  speed 
printing 

Siailar  to 
Dirty,  but 
luainaires 
within  area  of 
contaa I nation 

the  cavity  sizes  and  the  surface  reflectance  amounts,  and 
the  room  cleanliness  factors  are  the  items  that  need  to  be 
determined  in  the  room  information  gathering  process.  This 
information  must  be  combined  with  the  luminaire  information 
to  enable  the  calculations  stage  of  lighting  design  to  be 
performed  properly. 

In  an  effort  to  help  with  further  examples.  Chart  2.1 
is  the  accumulation  of  all  information  that  must  be  known 
about  the  room.  Chart  2.1  includes  the  calculated  data 
from  Examples  2.1  and  2.2,  as  well  as  additional  data 
calculated  using  similar  methods  (  i_e .  the  effective  floor 
cavity  reflectance).  Chart  2.1  will  be  used  for 
comparison  purposes  in  Chapter  IV,  during  the  program 
validation  sequence. 
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Chart  2. 1 


Room  Information 


i 

f  Data 


Source 


Room 

Use : 

Office 

Gi  ven 

FC  Required: 

50  fc 

Tab  1 e  2. 1 

Room 

Dimensions : 

Room  #1, 

1 ength : 

40  ft 

Examp  1 e 

width : 

40  ft 

area: 

1600  ft 

ceiling  hgt : 

10  ft 

f  i  xture  hgt : 

8  ft 

working  hgt: 

2.5  ft 

Room 

Cavi ty  Rat i os : 

Examp  1 e  2.1 

CCR : 

0.5 

RCR : 

1. 375 

FCR : 

0.625 

Room 

Surface  Colors: 

G  i  ven 

ceiling: 

Winter 

White 

walls: 

Si  1 ver 

Lining 

f 1 oor : 

Crayon 

B  1  ue 

Room 

Surface  Reflectances: 

Table  2.2 

P  : 

0.  83 

Pc: 

0.  70 

Pw- 

0.20 

Pf  : 

0.78 

Example  2.2 

Pcc. 

*fc- 

0.21 

Ca 1 cu 1 ated 

Room 

Dirt  Condition: 

C  1  ean 

Table  2.4 

Cleaning  Cycle: 

18  months 

Chosen 

Luminaire  Information 

Genera  1 .  Now  that  the  room  information  requirements 
have  been  discussed,  the  next  area  of  interest  is  the  light 
luminaire  information.  This  information  can  be  broke  down 
into  three  main  topics  for  discussion;  the  light  source 


type,  the  source  enclosure  or  "fixture,"  and  the  source 
lamp  and  ballast  requirements. 

Light  Sources .  There  are  three  major  types  of  light 
sources  to  choose  from  when  doing  interior  lighting 
design.  These  major  types  of  sources  include  incandescent, 
fluorescent,  and  high  intensity  discharge  (HID).  Each  of 
these  major  types  can  be  broken  down  into  specific  styles. 

I ncandescents ’  major  styles  are  the  medium  base  style, 
which  most  people  are  familiar  with  (the  household  kind), 
and  the  "par"  style,  which  are  used  for  spot  lights  and 
flood  lights.  Low  voltage  lighting,  such  as  "track"  lights 
are  also  in  the  incandescent  family. 

Fluorescent  lamps  come  in  many  different  styles  and 
types  also.  Cool  white,  warm  white,  daylight,  and  deluxe 
cool  white  are  just  a  few  of  the  styles.  These  styles  are 
different  from  one  another  mainly  in  color  rendition,  which 
will  be  discussed  later.  Fluorescent  lamps  come  in  energy 
saving  types  as  well  as  high  output  (increased  light 
output)  types,  with  each  types  coming  in  different  "color" 
styles  as  well.  The  fluorescent  family  is  quite  extensive 
and  must  be  reviewed  constantly  by  the  design  engineer  due 
to  constant  additions  by  the  lamp  manufacturers. 

High  intensity  discharge  (HID)  lamps  come  in  three 
major  types,  with  each  type  having  characteristics 
completely  separate  from  the  others.  These  types  are 
mercury  vapor,  metal  halide,  and  high  pressure  sodium 


(HPS).  The  primary  differences  between  these  types  of  HID 
lamps  are  their  efficiencies  and  their  color  renditions, 
both  of  which  will  be  explained  in  the  following 
discussions. 

When  the  design  engineer  selects  a  lighting  source 
type,  there  are  a  number  of  topics  which  must  be 
considered.  These  topics  include  source  efficiency,  color 
rendition  criteria,  and  switching  time. 

Ef  f 1 c 1 encv .  Table  2.5  shows  a  comparison  of  the 
different  sources’  efficiency  ratings.  This  table  is 
similar  to  one  presented  in  the  AFIT  School  of  Engineering 
and  Services  classroom  handouts  (25;.  The  reader  should 
note  the  units  of  the  ratings,  since  the  efficiency  of  a 
lighting  source  is  determined  by  the  lumen  output  per 
wattage  input.  A  lumen  in  simple  terms  can  be  considered 
the  unit  quantity  of  light  put  out  by  the  lighting  source. 

The  reader  should  note  from  Table  2.5  that  the 
incandescent  source  has  the  lowest  efficiency  while  the  HPS 
source  has  highest,  and  that  the  three  types  of  HID  sources 
have  very  different  efficiency  ratings.  Unfortunately,  the 
design  engineer  cannot  choose  a  light  source  strictly  for 
efficiency’s  sake.  The  high  pressure  sodium  source  may 
have  the  highest  efficiency  rating,  but  it  has  very  poor 
color  rendition  and  switching  characteristics  which  make  it 
far  from  the  optimal  source  in  most  interior  lighting 


cases . 


SOURCE 


LUMENS/WATT 


I ncandescent 

General  Service  21 

Extended  Service  15 

F 1 uorescent 

Cool  White  78 

White  80 

Warm  Whi te  80 

High  Intensity  Discharge 
Mercur y 

Clear  46 

Phosphor  52 

Metal  Halide 

Clear  70 

Phosphor  90 

High  Pressure  Sodium  125 


Table  2.6 


Lamp  Color  Rendition  Chart 


1 ncandescent 

i 

i 

i 

i 

High  Intensity  Discharge 

Laap  Naaes 

Filaaent 

i 

i 

1  Mercury 

i 

i 

Metal  Halide 

HPS 

Liaens/Vatt 

Low 

Mediua 

High 

High 

Laap  appear¬ 
ance  effect 
on  neutral 
surfaces 

Yellowish 

white 

Greenish 

blue-white 

Greenish 

white 

Yel lowish 

Effect  on 
•ataosphere* 

Uara 

Very  cool, 
Greenish 

Moderately 
cool,  Greenish 

Uara, 

Yel lowish 

Colors 

Strengthened 

Red 

Orange 

Yel low 

Yellow 

Green 

Blue 

Yellow 

Green 

Blue 

Yel  low 

Orange 

Green 

Colors 

Greyed 

Blue 

Red 

Red 

Blue 

Effect  on 
Coaplexions 

Ruddiest 

Greenish 

Greyed 

Yel lowish 

Reaarks 

Good  color 
rendition 

Very  poor  color 
rendition 

Color  acceptance 
slailar  to  CU 
fluorescent 

Color  acceptance 
approaches  that  of 
Ww  fluorescent 

Fluorescent 

Laap  Naaes 

Cool  Uhi te 

Uara  Uhlte 

Daylight 

White 

Lunens/Uatt 

High 

High 

Hediua-Hlgh 

High 

Laap  appear¬ 
ance  effect 
on  neutral 
surfaces 

White 

Yellowish 

white 

Bluish 

white 

Pale  Yel lowish 
white 

Effect  on 
"ataosphere* 

Neutral  to 
aoderately  cool 

Uara 

Very  Cool 

Moderately 

warn 

Colors 

Strengthened 

Orange 

Yel low 

Blue 

Orange 

Yellow 

Green 

Blue 

Orange 

Yellow 

Red 

Red 

Green 

Blue 

Red 

Orange 

Red 

Green 

Blue 

Effect  on 
Coaplexions 

Pale  Pink 

Sal  low 

Greyed 

Pale 

Reaarks 

Blends  with 
natural  daylight 
Good  color 
acceptance 

Blends  with 
incandescent 
light;  slaulates 
natural  daylight 

Usually 
replaceable 
with  CU 

Usually 
replaceable 
with  CU  or  VU 

the  switch  is  turned  on  to  when  the  light  comes  on),  and 


restart  time  (switch  and  light  turned  off  and  then  back 
on),  are  also  important  factors  the  design  engineer  has  to 
consider.  For  incandescent  and  fluorescent  sources,  the 
start-up  and  restart  times  are  considered  instantaneous; 
whereas  HID  sources  increase  in  brightness  slowly  until 
they  reach  their  "peak"  operating  temperature  where  they 
remain  until  turned  off.  Once  turned  off,  the  HID  sources 
require  a  cool  down  time  before  they  can  be  restarted. 
According  to  the  specific  lamp,  this  "peak"  temperature 
time  and  restart  time  could  be  as  short  as  30  seconds  or  as 
long  as  10  minutes.  These  times  make  HID  sources  less  than 
inviting  when  the  designer  wants  to  control  the  lighting 
system  with  an  energy  management  control  system  (EMCS),  or 
in  other  areas  where  the  lights  might  get  turned  off  and  on 
f  requent 1 y . 

Typical  Uses.  As  the  reader  can  see,  there  are 
advantages  and  disadvantages  to  every  type  of  lighting 
source.  The  design  engineer  must  be  very  careful  when 
choosing  the  light  source  type  to  ensure  that  the 
efficiency,  the  color  rendition,  and  the  switching  time  are 
compatible  with  the  area  being  designed.  Table  2.7  gives 
examples  of  where  each  major  light  source  type  is  used. 

Light  sources  (lamps)  for  the  most  part,  do  not  have 
built  in  directional  control  to  enable  them  to  shine  the 
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Table  2.7  --  Typical  Use  Areas 


SOURCE  TYPE 


TYPICAL  AREAS 


I  ncandescent 


F 1 uorescent 


HID 


Closets 
Entry  Ways 
Specialty  Lighting 

Offices 

Conference  Rooms 
Ha  1  1  ways 

High  Bay  Areas 

Warehouses 

Hangers 


light  in  a  certain  direction  or  spread  the  light  out  over  a 
given  area.  Because  of  this,  these  sources  must  be  put  in 
enclosures  or  "fixtures"  to  control  the  direction  and 
distribution  of  the  light.  Each  type  of  light  source  is 
available  in  a  number  of  different  styles  of  fixture 
housings,  each  of  which  will  distribute  the  light  a  little 
differently.  The  design  engineer,  once  the  source  type  is 
chosen,  must  then  evaluate  distribution  criteria  to 
determine  which  fixture  to  use. 

Fixture  Types.  There  are  three  main  items  of  concern 
when  choosing  a  fixture  type.  Aesthetics  is  the  first 
major  concern  in  choosing  a  fixture.  Most  people  would 
consider  a  bare  bulb  fluorescent  fixture  in  a  newly 
constructed  office  very  unattractive.  Common  sense  must 
rule  in  the  choice.  When  a  fixture  is  hung  below  a 
ceiling,  consideration  should  be  given  to  having  the 
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fixture  provide  "up-light”  (allowing  light  to  come  out  of 
the  top  of  the  fixture)  to  avoid  a  dark  dingy  looking  space 
above  a  work  area  which  will,  in  most  cases,  detract  from 
the  aesthetics  of  the  area.  A  fixture’s  distribution  type 
can  be  determined  by  looking  at  Table  2.8. 

Aesthetics  of  an  entire  building  can  be  enhanced  if 
the  design  engineer  tries  to  standardize  the  fixtures 
used.  Conversely,  in  very  special  areas,  a  totally 
different  type  of  fixture  could  be  used  to  "call  attention" 
to  the  area.  Aesthetics  of  the  fixture  and  the  given  area, 
though  important,  are  not  the  only  items  that  the  design 
engineer  must  consider  when  choosing  a  fixture  type.  The 
second  item  of  importance,  which  is  closely  related  to  a 
room’s  cleanliness  factor,  is  how  "dirty"  a  fixture  is 
allowed  to  become  before  cleaning  occurs. 

The  construction  type  of  a  fixture  will  determine  how 
dirty  conditions  will  affect  the  fixture’s  ability  to 
distribute  light.  The  IES  Lighting  Handbook  (14)  assigns 
one  of  five  categories  to  fixtures  according  to  how  "open" 
they  are  to  atmosphere.  Table  2.9  is  similar  to  Figure  9-2 
of  the  IES  Lighting  Handbook. 

The  more  open  a  fixture’s  reflective  surfaces  are  to 
the  atmosphere,  the  more  likely  it  is  for  the  surfaces  to 
become  dirty.  Maintenance  Category  I  of  Table  2.9 
indicates  a  completely  open  fixture.  An  example  of  this 
type  would  be  a  bare  bulb  fluorescent  "shop-light"  type  of 


DISTRIBUTION  TYPE 

%  UP 

%  DOWN 

Indirect 

90-100 

0-10 

Semi -indirect 

60-90 

10-40 

Direct-indirect 

40-60 

40-60 

Sent  i  -d  i  r  ect 

10-40 

60-90 

Direct 

0-10 

90-100 

Tab  : 

le  2. 

9  --  Luminaire  Maintenance 

Categor ies 

Maintenance 

Category 

Top  Enclosure 

Bottoi  Enclosure 

1 

1. 

None 

1. 

None 

II 

1. 

None 

1. 

None 

2. 

Transparent  with  15*  or  *ore 

Louvers  or  baffles 

uptight  through  apertures 

3. 

Translucent  with  15*  or  «ore 
uplight  through  apertures 

4. 

Qpaque  with  15*  or  lore 
uplight  through  apertures 

III 

1. 

Transparent  with  less  than  15* 

1. 

None 

upward  light  through  apertures 

2. 

Louvers  or  baffles 

2. 

Translucent  with  less  than  15* 
upward  light  through  apertures 

3. 

Qpaque  with  less  than  15* 
uplight  through  apertures 

IV 

1. 

Transparent  unapertured 

1. 

None 

2. 

Translucent  unapertured 

2. 

Louvers 

3. 

Opaque  unapertured 

V 

1. 

Transparent  unapertured 

1. 

Transparent  unapertured 

2. 

Translucent  unapertured 

2. 

Translucent  unapertured 

3. 

Opaque  unapertured 

VI 

1. 

None 

1. 

Transparent  unapertured 

2. 

Transparent  unapertured 

2. 

Translucent  unapertured 

3. 

Translucent  unapertured 

3. 

Opaque  unapertured 

4. 

Opaque  unapertured 

fixture.  Maintenance  Category  VI  of  Table  2.9  indicates  a 
totally  enclosed  fixture,  similar  to  a  fluorescent  fixture 
that  is  flush  mounted  in  a  suspended  ceiling. 

Once  this  maintenance  category  is  known,  it  can  be 
combined  with  the  previously  discussed  room  cleanliness 
factors  (Table  2.4)  and  fixture  distribution  type  (Table 
2.8)  to  determine  a  total  light  loss  factor  ( LLF ) ,  which 
will  be  discussed  further  in  the  calculations  section. 
Fixture  dirt  will  not  only  detract  from  aesthetics  of  the 
fixture  chosen,  but  will  also  effect  the  distribution 
capabilities  of  the  fixture.  This  fixture  distribution,  is 
the  third  and  last  major  item  that  the  design  engineer  must 
consider  when  choosing  a  fixture  type. 

A  fixture’s  distribution  capabilities  can  be  assessed 
through  the  understanding  of  a  spac i n g - to -mount i ng  height 
(S/MH)  ratio.  Each  fixture  is  given  a  S/MH  ratio  by  its 
manufacturer.  S/MH  ratios  tell  the  design  engineer  how  far 
apart  two  fixtures  can  be  placed.  Placing  the  fixtures 
further  apart  then  what  this  ratio  allows  would  result  in 
"dark"  spots  in  certain  areas  on  the  working  surface. 

Figure  2.2  shows  this  pictorially. 

In  Figure  2.2,  the  distance  between  the  light  fixtures 
(d)  is  determined  by: 


d 


(S/MH ) ( h ) 


(2.3) 


Figure  2.2  --  Luminaire  Spacing 


where 


d  =  the  distance  between  fixtures  (center  to  center), 
S/MH  =  spacing-to-mounting  height  ratio,  and 
h  =  the  mounting  height  of  the  fixture  (bottom). 


One  factor  that  might  not.  be  obvious  is  that  the  S/MH  is 
directly  related  to  the  distribution  pattern  (spread)  of 
the  given  fixture.  If  the  design  engineer  picks  a 
different  fixture  with  a  different  distribution  pattern, 
and  a  different  S/MH  ratio,  the  maximum  distance  between 
the  fixtures  will  be  different.  Note  also  that  the  fixture 
separation  distance  (d)  is  a  function  of  the  mounting 
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height.  Thus  if  the  design  engineer  has  the  ability  to 
vary  the  mounting  height  of  the  fixtures,  as  in  a  high  bay 
area,  the  fixture  spacing  can  be  adjusted. 

Unfortunately,  there  are  limits  to  how  much  "spread"  a 
given  fixture  can  produce.  As  an  example,  for  fluorescent 
troffers  (recessed  fixtures  in  suspended  ceilings)  an 
average  S/MH  ratio  is  1.3,  and  a  high  S/MH  ratio  is  1.7. 
This  means  that  average  fluorescent  troffers  (in  a  9  foot 
ceiling)  would  be  spaced  a  maximum  of  11.7  feet  away  from 
each  other  (15.3  feet  for  the  high  S/MH).  This  is  true  no 
matter  what  the  intensity  (amount)  of  light  the  fixture 
puts  out.  Although  a  more  thorough  explanation  will  be 
given  later  in  the  calculation  section,  it  is  important  to 
note  here  that  the  amount  of  light  each  fixture  puts  out 
will  determine  how  many  fixtures  are  needed  in  an  area.  If 
the  S/MH  ratio  indicates  that  the  given  number  of  lights  in 
an  area  are  too  far  apart  to  light  the  area  effectively  (no 
"dark  spots"),  then  the  light  output  of  the  fixtures  must 
be  reduced  to  increase  the  number  of  fixtures  in  the  room. 
This  will  allow  better  spacing  of  the  fixtures.  Again, 
using  fluorescent  troffers  as  an  example,  one  way  to  reduce 
the  light  output  of  a  fixture  is  to  reduce  the  number  of 
lamps  in  the  fixture.  A  four  tube  fixture  will  give  off 
twice  as  much  light  as  will  a  two  tube  fixture.  This 
example  illustrates  the  need  for  the  design  engineer  to 


select  fixtures  with  the  proper  amount  of  light  output  to 


use  for  each  given  job. 

Lamp  and  Ballast  Types.  The  amount  of  light  that  any 
given  fixture  can  give  out  is  only  dependent  upon  the  type 
and  number  of  lamps  that  it  can  hold.  Incandescent  type 
fixtures  normally  hold  single  lamps  as  do  all  high 
intensity  discharge  (HID)  type  fixtures.  In  these 
fixtures,  the  intensity  of  light  is  adjusted  by  increasing 
or  decreasing  the  lumen  output  of  the  lamp  itself. 

Remember,  a  "lumen"  is  the  unit  quantity  of  light  given  off 
by  a  lamp.  Fluorescent  type  fixtures  can  hold  anywhere 
from  one  lamp  up  to  as  many  as  eight  lamps,  with  normal 
quantities  being  one  to  four  lamps.  In  most  cases,  the 
lumen  intensity  of  fluorescent  fixtures  Is  adjusted  by  the 
number  of  lamps  used  in  the  fixture. 

No  matter  what  type  of  light  source  a  lamp  is,  the 
primary  rating  of  the  lamp  will  be  by  wattage,  and  not  by 
lumen  output.  Fortunately,  within  source  types,  an 
increase  in  the  wattage  rating  will  indicate  an  increase  in 
lumen  output  rating  as  well.  Table  2.10  gives  a  few 
typical  wattage  lamps  and  their  associated  lumen  ratings 
for  the  major  source  types. 

Please  note  that  two  wattage  lamps  are  shown  for  both 
the  four  foot  and  eight  foct  fluorescent  lamps.  In  both 
cases  the  lower  wattage  lamps  are  considered  "energy 
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Tab  1 e  2.10  -- 

Lamp  Wattage 

and  Lumen 

Rat ings 

SOURCE 

WATTAGE 

INITIAL 

MAINTAINED 

TYPE 

RATING 

LUMENS 

LUMENS 

I ncandescent 

( genera  1  duty ) 

75 

1190 

- 

100 

1750 

- 

150 

2880 

- 

F 1 uorescent 

4  foot 

35 

2850 

2510  ! 

40 

3150 

2770  ' 

8  foot 

95 

8500 

7395  | 

110 

9200 

8005  ; 

HID 

1 

Mercury  Vapor 

250 

12100 

10400 

400 

22500 

19100 

Metal  Halide 

250 

20500 

17000  ! 

400 

34000 

26500  j 

HPS 

250 

27500 

24750  | 

400 

50000 

45000 

_ i 

saving"  type  lamps.  (These  types  of  lamps  should  not  be 
mixed  and  matched  with  normal  lamps  to  increase  or  decrease 
a  fixtures  light  output  rating). 

The  reader  should  notice  on  Table  2.10  that  there  are 
two  listings  for  lumen  output  for  most  lamps.  One  is  the 
initial  lumen  output,  the  other  is  the  maintained  lumen 
output.  The  difference  between  these  two  ratings  is  a 
factor  of  time.  As  with  almost  anything,  a  lamp  will 
perform  better  whe.i  it  is  new  than  when  it  is  used.  Some 
manufacturers  call  the  maintained  rating  a  "40*"  rating, 
meaning  that  after  40  percent  of  the  life  of  the  lamp,  the 
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lumen  output  has  "settled  down"  to  this  amount  of  output. 
Fortunately,  once  this  lower  output  rating  is  reached,  the 
lamp  continues  to  output  close  to  this  amount  until  it 
decides  to  "die."  A  good  heuristic  for  a  lamp’s  maintained 
lumen  output  is  85%  of  the  lamp’s  initial  lumen  rating. 

This  percentage,  presented  in  decimal  form  (.85  for  the 
heuristic  or  default  value)  is  called  the  lamp  lumen 
depreciation  (LLD),  and  will  be  used  in  the  calculation 
section  to  figure  out  the  total  light  loss  factor  of  a 
lighting  design.  Of  course,  if  the  initial  and  maintained 
lumen  ratings  are  given  by  the  manufacturer,  an  actual 
percentage  can  be  calculated  and  used  for  the  LLD  in  the 
final  design  calculations. 

Although  little  will  be  written  about  the  topic  of 
ballasts,  it  is  important  to  note  that  all  fluorescent  and 
HID  lamps  require  ballasts  to  work.  In  most  cases,  once 
the  lamp  is  chosen,  the  associated  ballast  can  be 
determined.  Ballasts,  especially  on  HID  type  lamps  are  not 
interchangeable.  Normal  and  energy  saving  fluorescent 
ballasts  are  available,  but  the  design  engineer  must  be 
careful  when  using  energy  saving  ballasts  with  normal  lamps 
because  many  types  will  not  handle  the  additional  lamp 
wattage.  The  main  reason  to  note  the  specific  ballast 
used,  in  all  cases,  is  that  the  ballast  will  consume 
energy.  This  energy  consumption  must  be  known  to  properly 


figure  out  both  the  power  requirements  of  the  total 


lighting  system  and  the  life  cycle  costing  of  the  system. 

Summary .  Luminaire  information  requirements  necessary 
to  perform  proper  lighting  designs  are  the  light  source 
type,  with  major  types  being  incandescent,  fluorescent,  and 
high  intensity  discharge  (HID);  the  light  enclosure  or 
fixture  characteristics  including  both  the  spacing-to- 
mounting  height  (S/MH)  ratio  and  the  luminaire  (fixture) 
category;  and  the  lumen  rating  of  the  lamp  or  lamps  being 
used,  along  with  the  associated  lumen  depreciation  rating. 
This  luminaire  information  along  with  the  previously 
discussed  room  information  will  provide  all  the  necessary 
information  to  calculate  the  number  of  fixtures  necessary 
to  light  a  room  to  a  proper  level.  Chart  2.2  will  list  the 
luminaire  information  chosen  to  expand  Chart  2.1’s  room 
information  and  to  be  used  by  the  examples  placed  in  the 
Calculation  Section. 

Chart  2.2  --  Luminaire  Information 


Data 


Source 


Source  Type:  Fluorescent 

Fixture  Data: 

Distribution  Type:  Direct 

Maint.  Category:  V 


Chosen , 

Tab  1 e  2.7 

Table  2.8 
Chosen, 

Table  2.9 


Lamp  Data: 

Wattage : 

Initial  Lumens : 
Maintained  Lumens: 


40  watts 

3150 

2770 


Chosen, 

Table  2.10 


Calculations 


Purpose .  As  stated  earlier,  the  ultimate  purpose  of 
the  calculation  stage  is  to  determine  the  number  of 
luminaires  required  to  light  the  ar«a  of  interest.  This 
section  will  discuss  what  calculations  are  necessary  to 
determine  that  number.  Along  with  this,  this  section  will 
explain  how  the  information  gathered  on  the  room,  and  the 
information  gathered  on  the  luminaire  are  used  in  those 
calculations. 

The  actual  calculation  stage  can  be  split  into  five 
steps.  The  first  step  will  determine  the  total  light  loss 
factor  (LLF).  The  second  step  will  determine  the 
coefficient  of  utilization  (CU)  value.  The  third  step  will 
use  the  LLF  and  the  CU  value  to  determine  the  total  lumens 
required  ( TLR )  in  the  given  area.  The  fourth  step  takes 
the  TLR  and  calculates  the  optimum  number  of  luminaires 
required  for  the  area.  The  fifth  step  will  use  the  spacing 
to-mounting  (S/MH)  ratio  to  give  the  design  engineer  help 
in  determining  a  proper  layout  for  the  area,  by  calculating 
maximum  1  um  i.  na  i  r  e  -  to  -  1  um  i  na  i  r  e  spacing  dimensions. 

Light  Loss  Factor.  To  determine  the  total  light  loss 
factor  (LLF),  the  information  gathered  for  both  the  room 
and  the  fixture  will  be  used.  The  room  cavity  ratios 
(RCR’s),  the  room’s  dirt  condition  (Table  2.4),  and 
cleaning  cycle  time  will  be  needed  from  the  room 
information;  while  the  luminaire  category  (Table  2.9),  the 


I 

if 


luminaire  distribution  type  (Table  2.8),  and  the  lamp  lumen 


depreciation  factor  (LLD)  (in  decimal  form)  will  be  needed 


from  the  luminaire  information.  The  basic  formula  for  the 


total  LLF  is: 


LLF  =  (LLD) (LDD) (RSDD) 


(2.4) 


where 


LLD  =  the  lamp  lumen  depreciation, 


LDD  =  the  luminaire  dirt  depreciation,  and 


RSDD  =  the  room  surface  depreciation 


The  LLD  is  determined  as  discussed  in  the  previous 


section.  Putting  those  words  into  a  formula  results  with: 


LLD  =  maintained  lumens  /  initial  lumens 


(2.5) 


where  the  initial  and  maintained  lumens  are  obtained  from 


the  lamp  manufacturer’s  data.  A  default  value  for  LLD  is 


0.85  and  can  be  used  in  place  of  the  calculated  LLD  if  the 


maintained  lumens  of  the  lamp  is  not  known. 


Examp  1 e  2.3 


Purpose:  Compute  a  Lamp  Lumen  Depreciation  factor 


From  Chart  2.2: 


Initial  lamp  lumens:  3150  lumens 

Maintained  lamp  lumens:  2770  lumens 


LLD  =  2770  /  3150  =  0. 879 
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Next  the  luminaire  dirt  depreciation  (LLD)  factor  must 


be  determined.  The  LDD  is  found  by  using  the  room’s 
cleaning  cycle  time  (in  months),  and  the  luminaire’s 
maintenance  category  to  find  the  factor  given  on  the 
correct  chart  shown  in  Figure  2.3.  Figure  2.3  is  a 
reproduction  of  Figure  9-5  of  the  I ES  Lighting  Handbook 
(  14)  . 


The  LDD  can  also  be  figured  by  using  the  luminaire 
maintenance  category  and  the  room’s  dirt  condition,  finding 
the  proper  constants  A  and  B  from  Table  2.11  (Figure  9-6  of 
the  IES  Lighting  Handbook  (14)),  and  solving  the  equation: 


LDD 


•  A ( t~B ) 


(2.6) 


where 

t  =  time  in  years  (decimal  form) 


Example  2.4 

Purpose:  To  Determine  a  LLD  using  both  Figure  2.3  and 

Table  2.11  with  Equation  (2.6). 

From  Chart  2.1: 

Room  Dirt  Condition:  Clean 

Cleaning  Cycle:  18  months 

(1.5  years ) 


From  Chart  2.2: 

Maintenance  Category:  V 

Using  Figure  2.3: 


LLD  =  0.85 

2.38 


Figure  2.3  --  Luminaire  Dirt  Depreciation  Factor 


Table  2.11  --  Luminaire  Dirt  Depreciation  Constants 


Lunina  ire 

Maintenance 

Category 


Very 
C 1  ean 


Clean  Medium 


Dirty  Very 
Dirty 


I 

.69 

.038 

.038 

.ill 

.  162 

.301 

I 

.62 

.033 

.068 

.  102 

.  147 

.  188 

I 

.70 

.079 

.  106 

.  143 

.  184 

.236 

V 

.72 

.070 

.  131 

.  216 

.314 

.452 

V 

.53 

.078 

.  128 

.  190 

.249 

.321 

Example  2.4  continued 


Using  Table  2.11  with  Equation  (2.6): 

From  tab  1 e  2.11: 

A  =  0.128 
B  =  0.53 

From  Equation  (2.6): 

.  -0.128(1.5^0.53) 

LDD  =  e 

=  0. 853 


The  last  item  in  Equation  (2.4)  that  must  be 
determined  prior  to  calculating  the  LLF  is  the  room  surface 
depreciation  (RSDD)  factor.  The  RSDD  is  determined  by 
using  the  room  dirt  condition  and  the  cleaning  cycle  time 
to  find  a  "percent  expected  dirt  depreciation  factor"  . rom 
the  graph  in  Figure  2.4.  Using  this  factor,  along  with  the 
luminaire  distribution  type,  and  the  room  cavity  ratio 
(RCR),  the  proper  value  for  the  RSDD  is  determined  from  the 
table  part  of  Figure  2.4.  Figure  2.4  is  a  copy  of  Figure 
9-7  of  the  IES  Lighting  Handbook  (14). 


Examp  1 e  2.5 

Purpose:  To  calculate  a  room  surface  dirt 

depreciation  (RSDD)  factor 


From  Chart  2. 1 

RCR:  1.375 

Room  Dirt  Condition:  Clean 

Cleaning  Cycle:  18  months 


2.40 


Hfsli! 


21  24  27  30  33  36 
THS 


Room  Cavity  Ratio 
1 

2 

3 

4 

5 

6 

7 

8 
9 

to 


Luminaire  Distribution  Type 

Direct 

Semi-Offset 

Dffect-4ndirect 

Sem*-4nd»rect 

Indirect 

10 

20 

30 

40 

20 

30 

40 

10 

20 

30 

40 

10 

20 

30 

40 

10 

20 

30 

40 

98 

96 

94 

92 

97 

92 

89 

84 

94 

87 

80 

76 

94 

87 

80 

73 

90 

80 

70 

60 

98 

96 

94 

92 

96 

92 

88 

83 

94 

87 

80 

75 

94 

87 

79 

72 

90 

80 

69 

59 

98 

95 

93 

90 

96 

91 

87 

82 

94 

86 

79 

74 

94 

86 

78 

71 

90 

79 

68 

58 

97 

95 

92 

90 

95 

90 

85 

80 

94 

86 

79 

73 

94 

86 

78 

70 

89 

78 

67 

56 

97 

94 

91 

89 

94 

90 

84 

79 

93 

86 

78 

72 

93 

86 

77 

69 

89 

78 

66 

55 

]  97 

94 

91 

88 

94 

89 

83 

78 

93 

85 

78 

71 

93 

85 

76 

68 

89 

77 

66 

54 

1  97 

94 

90 

87 

93 

88 

82 

77 

93 

84 

77 

70 

93 

84 

76 

68 

89 

76 

65 

53 

96 

93 

89 

86 

93 

87 

81 

75 

93 

84 

76 

69 

93 

84 

76 

68 

88 

76 

64 

52 

96 

92 

88 

85 

93 

87 

80 

74 

93 

84 

76 

68 

93 

84 

75 

67 

88 

75 

63 
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92 
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83 

93 

86 

79 

72 

93 

84 

75 

67 

92 

83 

75 

67 

88 

75 

62 

50 

Figure  2.4  —  RSDD  Factors 


Example  2.5  continued 


From  Chart  2.2: 


Maintenance  Category: 
Distribution  Type: 


From  graph  in  Figure  2.4: 


V 

Direct 


%  expected  DD  =  15 


Example  2.5  continued 

From  table  in  Figure  2.4: 

For  a  "Direct"  luminaire  type: 


with  % 

expected 

DD 

— 

10 

and 

RCR 

= 

1 

and 

RCR 

= 

2 

extrapo 1  ate 

for 

RCR 

= 

1 . 375 

with  % 

expected 

DD 

= 

20 

and 

RCR 

- 

1 

and 

RCR 

= 

2 

extrapo late 

for 

RCR 

= 

1 . 375 

Table  Read i ng 


RSDD  =  0.98 

RSDD2  =  0.98 

RSDD  =  0.98 
A  - 

RSDD3  =  0.96 

RSDD,  =  0.96 
4 

RSDDd  =  0.96 

O 


for  %  expected  DD  =  15 

and  RCR  =  1.375 

extrapolate  between  RSDD.  and  RSDD.,: 

A  B 


final  computed  RSDD  =  0 ■ 97 


Ti,  ’se  factors,  the  LLD,  the  LDD,  and  the  RSDD  when 
plugged  into  Equation  (2.4)  will  determine  a  factor  for  the 
total  light  loss  factor  (LLF)  for  the  given  room  and 
luminaire  combination.  This  factor  will  be  used  in  step  3 
of  the  calculation  stage  to  determine  the  total  number  of 
lumens  required  (TLR). 

It  is  important  to  note  that  this  factor  (LLF)  is  used 


to  determine  the  "maintained"  lumen  level  of  the  area.  All 


of  the  individual  factors  that  go  into  calculating  the  LLF 


represent  "depreciation"  amounts,  necessary  because  of 
dirty  room  conditions  that  happen  over  a  period  of  time. 


Example  2.6 


Purpose : 


To  combine  the  factors  calculated  in 
Examples  2.3,  2.4,  and  2.5  into  a  total  LLF 


From  Examp  1 e  2.3 

LLD  =  0.379 
From  . xamp 1 e  2.4 

LDD  =  0.853 
From  Example  2.5 

RSDD  =  0.97 


From  Equation  (2.4) 

LLF  =  (0. 879) (0.853) (0. 97) 
=  0. 727 


Coefficient  of  Utilization.  Chapter  1  mentioned  that 
the  method  used  in  this  project  to  perform  lighting  design 
is  the  Zonal  Cavity  Method.  This  method,  developed  by  the 
Illumination  Engineering  Society  (IES),  uses  the 
coefficient  of  utilization  (CU)  as  a  factor  that  combines 
the  room  cavity  ratios  (RCR’s)  and  the  surface  reflectance 
values,  described  in  the  room  information  section  of  this 
chapter,  into  one  number  that  can  be  used  in  Step  3  of  the 


calculation  stage  to  calculate  the  total  number  of  lumens 


needed  to  light  a  room.  The  figuring  of  this  CU  value  is 
the  second  step  in  the  actual  calculation  stage  of  lighting 
design.  This  CU  value  effectively  indicates  how  the  room 
"uses"  the  light  that  is  given  off  and  distributed  by  the 
luminaire. 

Each  luminaire’s  manufacturer’s  data  will  have  a  CU 
photometric  chart  published  with  it.  Figure  2.5  pictures  a 
luminaire  and  its  associated  CU  photometric  chart  (Lithonia 

! 

|  Model  2PM4-240  (26)).  This  chart  will  be  used  along  with 

> 

^  the  effective  reflectance  values,  P  (ceiling),  P  (wall), 

•  cc  &  w 

and  Pfc  (floor),  and  the  room  cavity  ratio  (RCR)  to 
determine  exactly  what  CU  number  to  use. 

1 

!  During  inspection  of  the  photometric  chart,  the  reader 

i 

should  notice  that  the  floor  reflectance  is  the  only  factor 
,  that  does  not  have  multiple  choices  associated  with  it. 

I  All  other  factors  do  have  multiple  choices,  and  the  actual 

,  CU  value  can  be  mathematically  extrapolated  for  factors 

!  that  are  not  shown.  As  an  example,  an  effective  ceiling 

'  reflectance  of  75%  can  be  linearly  extrapolated  from 

between  the  70%  and  the  80%  CU  values  given  in  the  chart. 

|  When  it  is  necessary  to  determine  a  CU  factor  for  floor 

|  reflectances  other  than  20%,  Table  2.12  (Figure  9-13  from 

the  I ES  Lighting  Handbook  (14))  must  be  used  to  obtain  a 


constant  to  multiply  the  CU  factor  obtained  from 


PHOTOMETRICS 

COEFFICIENTS  OF  UTILIZATION 


ZONAL  CAVITY 


Pit 

20* 

Pet 

80* 

70* 

□ 

50* 

_ 

30* 

Pw 

70*  50*  30*  10* 

70*  50*  30*10* 

50* 

30*  10* 

50* 

30* 

v* 

1 

77 

74 

7? 

70 

75 

73 

71 

69 

70 

68 

67 

67 
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67 
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25 
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37 

28 

22 

19 

36 

27 

22 

19 

27 

22 

19 

26 

22 

18 

'Standard  ballast,  F40T12/CW  lamps  (3200  lumens) 

Spacing  criteria:  II  =  1.2  x  mounting  height 
1  =  1.6  x  mounting  height 


Figure  2.5  --  Fixture  and  CU  Chart 


photometric  chart  by.  Extrapolation  from  the  tables  in 
Table  2.12  is  also  possible. 

Once  the  CU  value  is  found,  it  is  used  in  Step  3  along 
with  the  light  loss  factor  to  help  determine  the  total 
amount  of  lumens  necessary  to  light  an  area  to  a 
predetermined  level. 


2.  45 


Tab  I e  2.12 


Floor  Reflectance  Multiplying  Factors 


£  *ec  five 
Ceiimq  Cav- 
-tv  Reflec¬ 
tance  *>cc 


V  Wail  Re 
ftectance. 


Room  Cavity 
Ratio 


For  30  Per  Cent  Effective  Floor  Cavity  Reflectance  (20  Per  Cent  -  i  00) 


For  10  Per  Cent  Effective  Floor  Cavity  Reflectance  (20  Per  Cent  -  i  00) 


Room  Cavity 
Ratio 


923 

929 

935 

940 

933 

939 

943 

948  ■ 

956 

960 

963 

973 

976 

979 

989 

991 

993 

931 

942 

950 

958 

940 

949 

957 

963  j 

962 

968 

974 

976 

960 

985 

988 

991 

995 

939 

951 

961 

969 

945 

957 

966 

973  j 

967 

975 

981 

978 

983 

988 

988 

992 

996 

944 

958 

969 

978 

950 

963 

973 

980 

972 

980 

986 

980 

986 

991 

987 

992 

996 

949 

964 

976 

983 

954 

968 

978 

985  1 

975 

983 

989 

981 

988 

993 

987 

992 

997 

953 

969 

980 

986 

958 

972 

982 

989 

977 

985 

992 

982 

969 

995 

987 

993 

997 

957 

973 

983 

991 

961 

975 

985 

991 

979 

987 

994 

983 

990 

996 

987 

993 

996 

960 

976 

986 

993 

963 

977 

987 

993 

98 1 

988 

995 

984 

99t 

997 

987 

994 

998 

,  963 

978 

987 

994 

965 

979 

989 

994  , 

903 

990 

996 

985 

992 

998 

988 

994 

999 

|  965 

980 

989 

995 

967 

981 

990 

995  i 

984 

991 

997 

986 

993 

996 

988 

994 

999 

Room  Cavity 
Ratio 


For  0  Per  Cent  Effective  Floor  Cavity  Reflectance  (20  Per  Cent  -  t  00) 


8?0  079  886  i  873  884  893  901  .  916  923  929  i  948  954  960  I  979 


950 

970 

982  1 

959 

955 

975 

988  | 

963 

Examp  1 e  2.7 

Purpose : 

To  calculation  the  CU  value  for  Room  #1 

From 

Char  t  2.1: 

RCR  =  1.375 

P  =0.78 

PCC  =  0.70 

a 


K 

!•« 


9 


1 


8 


Example  2.7  continued 


(note:  the  RCR  is  the  left  most  column  of  Figure 

2.5’s  photometric  chart  and  the  chart  values  are  in 
percent,  i_e.  77  =  0.77) 


From  Fi gure  2.5:  Table  Read i n < 


for  P^  =  0.20 

Pfc  =  0.70 

PCC  =  0.70 
w 


RCR  =  2 


extrapolate  for: 


1. 375 


for  P^  =  0.20 

PfC  =  0.80 

PCC  =  0.70 
w 


extrapo 1  ate  for : 


1 . 375 


extrapolate  between  CUA  and  CU^: 


for  P  =0.78 
cc 


F r om  Figure  2.12 


for  Px  =  0.20 

Pfc  =  0.70 

PCC  =  0.70 
w 


extrapolate  for: 


1 . 375 


for  P  =  0.20 

PfC  =  0.80 

PCC  =  0.70 
w 


2.47 


CU  =  0.75 


CU2  =  0.70 


CU .  =0. 731 

A  - 


CU3  =  0.77 


CU  .  =  0.71 
a 


CUg  =  0. 748 


CUC  =  0. 745 


Table  Read i m 


K  =  1.077 


K  =  1.068 


K.  =  1.074 

A  - 


vv 


Example  2.7  continued 


RCR  = 

1 

K3  = 

1 . 092 

RCR  = 

2 

ii 

1 . 079 

extrapo 1  ate 

f  or  : 

RCR  = 

1 . 375 

ii 

CD 

1 . 087 

ex  trapo late 

between 

K.  and  KD: 

A  D 

for  P  =  0.78  K  _  =  1.084 

cc  C 


extrapolate  between  and  1.0: 

for  P.  =  0.21  K_  =  1.008 

f  c  D  - 


To  calculate  a  final  CU  value: 

cu  =  cuc  *  kd 

Thus : 

CU  =  (0.745) (1.008) 

=  0. 751 

Total  Lumens  Required.  The  third  step  in  the 
calculation  stage  of  lighting  design  is  to  calculate  the 
total  lumens  required  (TLR)  to  light  a  given  area  to  a 
predetermined  level.  As  mentioned  in  the  previous 
sections,  a  lumen  is  defined  as  the  quantity  of  light  put 
out  by  a  given  light  source.  How  much  of  this  "light"  is 
required  in  a  given  area  is  determined  by  the  following 
f ormu 1  a : 


TLR 


( FC ) ( A )  /  ( LLF ) ( CU ) 


(2.7) 


where 


TLR  =  the  total  lumens  required, 

FC  =  the  footcandle  level  for  the  room, 

A  =  the  floor  area  of  the  room, 

LLF  =  the  light  loss  factor,  and 
CU  =  the  CU  value 

As  mentioned  in  the  light  loss  factor  discussion,  Equation 
(2.7)  will  calculate  total  "ma i n ta i ned "  lumens  required. 

To  calculate  total  "initial"  lumens  required,  the  LLF 
factor  is  left  out  of  Equation  (2.7).  Knowing  the  initial 
lumens  required  to  light  an  area  can  help  the  design 
engineer  check  the  designed  area  immediately  after 
construction  is  completed  to  verify  the  lighting  system 
i ns ta 1  1  at i on. 

Once  the  total  lumens  required  (TLR)  factor  is 
determined,  it  must  be  combined  with  the  initial  lamp 
lumens  given  off  by  the  specific  lamp  (Table  2.10)  being 
used,  and  the  number  of  lamps  per  luminaire  to  determine 
the  total  number  of  luminaires  required  to  light  a  given 
ar  ea . 


Examp  1 e  2.8 

Purpose:  Calculate  the  total  lumens  required  (TLR). 

From  Chart  2.1: 

Required  FC  =  50  fc 

Area  =  1600  ft2 


Example  2.8  continued 

From  Examp  1 e  2.6: 

LLF  =  0.727 
From  Example  2.7: 

CU  =  0. 751 

From  Equation  (2.6): 

TLR  =  ( 50 ) ( 1600 )  /  (0. 751 ) (0. 727) 

=  146526  lumens 

Number  of  Luminaires  Required.  Determining  the  number 
of  luminaires  required  in  a  given  area  is  the  fourth  step 
in  the  calculation  stage  of  lighting  design,  and  as  stated 
before,  is  the  main  objective  of  the  calculation  stage  of 
lighting  design.  To  determine  the  total  number  of 
luminaires  required,  the  following  equation  should  be  used: 

number  of  fixtures  =  TLR  /  (ILL)(L/F)  (2.8) 

where 

TLR  =  total  lumens  required, 

ILL  =  initial  lamp  lumens,  and 
L/F  =  number  of  lamps  per  fixture 

The  initial  lamp  lumens  will  be  extracted  from  the 
manufacturer’s  data  on  the  specific  lamp  being  used  (Table 
2.10),  and  the  number  of  lamps  per  fixture  will  be 
determined  by  the  amount  of  lamps  the  exact  luminaire 
chosen  by  the  design  engineer  uses. 


Examp  1 e  2.9 


Purpose:  To  calculate  the  total  number  of  fixtures 

required  in  Room  tl. 


From  Chart  2.2: 

Lamp  Style:  40  watt  fluorescent 

Initial  lumens  (ILL):  3050  lumens/lamp 

From  Example  2.8: 

TLR  =  146526  lumens 

From  Figure  2.5  (which  is  a  two  lamp  fixture;: 

L/F  =  2 

From  Equation  (2.8): 

#  of  fixtures  =  (146526)  /  (3050) (2) 

=  24.02  fixtures 


Spacing  Criteria.  The  only  step  left  for  the  design 
engineer  to  perform  in  the  calculation  stage  is  the  fifth 
step  that  calculates  the  1  urn i na i r e - 1 o- 1 um i na i re  spacing 
criteria  for  layout  purposes.  This  step  has  been  discussed 
in  some  detail  in  the  Luminaire  Information  Requirements 
section,  and  the  formula  for  calculating  the  spacing 
between  fixtures  is  given  in  Equation  (2.3).  The  reader 
should  notice  that  Figure  2.5  has  two  S/MH  ratios  stated. 
The  top  ratio  is  for  spacing  requirements  side-to-side  (in 
this  case  the  four  foot  dimension  of  the  luminaire).  The 
bottom  ratio  is  for  spacing  requirements  end-to-end  (the 


two  foot  dimension). 


Cone  I  us  1  on 


This  chapter  discussed,  in  depth,  the  necessary 
information  requirements  needed  to  perform  proper  Zonal 
Cavity  Method  lighting  design  calculations,  and  reviewed 
the  calculations  themselves.  These  calculations  complete 
the  first  stage  of  a  proper  lighting  design  and  are 
followed  by  the  layout  stage  and  the  iteration  stage.  The 
layout  stage,  although  outside  the  scope  of  this  project, 
is  at  least  started  in  the  calculation  stage  by  the 
determination  of  the  maximum  1  urn i na i r e - to- 1  urn i na i r e  spacing 
criteria.  The  iteration  stage,  involving  the  reenactment 
of  the  calculation  stage  and  the  layout  stage,  helps  ensure 
that  there  are  comparative  designs  performed.  These 
comparative  designs,  in  turn,  will  help  the  design  engineer 
choose  the  "best"  lighting  system  for  the  given  area. 

Chart  2.3  is  included  to  give  a  total  look  at  all  the 
information  requirement  areas  and  all  the  calculated  items 
that  are  necessary  for  a  completed  calculation  stage  of 
interior  lighting  design.  Chart  2.3  will  also  be  used  for 
comparison  purposes  in  Chapter  IV,  during  the  program 


validation  sequence. 


Chart  2.3 


Interior  Lighting  Design  Results 


Room  Information:  (Chart  2.1) 


Room  Use: 

Office 

FC  Required: 

50  fc 

Room  length: 

40  ft 

Room  area: 

1600  ft2 

Room  width: 

40  ft 

Ceiling  height: 

10  ft 

CCR : 

0.  5 

Fixture  height: 

8  ft 

RCR : 

1 . 375 

Working  height: 

2.5  ft 

FCR : 

0.  625 

Ce i 1 i ng  color: 

Winter 

White 

Wall  color: 

Si lver 

Lining 

Floor  color: 

Crayon 

Blue 

P  : 

0.83 

P  : 

0.78 

PC : 

0. 70 

cc 

0.  20 

P,  : 
f  c 

0.21 

Room  dirt  condition:  Clean 

Cleaning  cycle:  18  months 


Luminaire  Information:  (Chart  2.2) 


Source  type: 
Maintenance  category: 
Distribution  type: 
S/MH  Ratio: 


F 1 uorescent 
V 

Di rect 
1 . 2 


Initial  lamp  lumens:  3150 

Maintained  lamp  lumens:  2770 


Calculation  Results: 


Data 

Source 

LLD 

=  0.879 

Examp  1  e 

2.3 

LDD 

=  0.853 

Examp  1 e 

2.4 

RSDD 

=  0.97 

Examp  1 e 

2.5 

LLF 

=  0.727 

Examp  1 e 

2.6 

Initial  CU  value: 

0.  745 

Examp  1 e 

2.  7 

Floor 

mult,  factor: 

1 . 008 

Example 

2. 7 

Final 

CU  value: 

0.  751 

E;.amp  1  e 

2.7 

TLR 

=  1 46526  1 umens 

Examp  1  e 

2.8 

#  of 

fixtures  required 

:  24 

Examp  1  e 

2.9 

111.  Program  Considerations  and  Development 

Genera  1 

This  chapter  will  present  a  general  discussion  of  the 
two  major  pre-programming  considerations  and  three  basic 
programming  considerations  that  have  been  identified  prior 
to  actually  starting  the  development  of  the  computer 
program.  In  addition  to  this  discussion  on  the 
pre-programming  and  the  programming  considerations,  actual 
program  development  methods  used  to  satisfy  these 
considerations  will  be  presented. 


Pre-programming  Considerations 

There  are  two  pre-programming  areas  of  consideration 
in  creating  this  program  to  comply  with  the  objectives  as 
stated  at  the  end  of  Chapter  I.  The  first  of  these  is  the 
question  of  how  to  make  the  program  work  on  as  many 
different  types  of  computer  systems  as  possible.  The 
second  consideration  is  that  when  this  program  is  turned 
over  to  the  electrical  group  at  the  AFIT  School  of  Civil 
Engineering  and  Services,  how  straight  forward  can  this 
program  be  made  to  enable  periodic  updating  and  expansion. 

The  answer  to  the  first  consideration’s  question  is  to 
create  the  program  in  a  computer  language  that  is  as 
universal  as  possible.  This  language,  for  MS-DOS  operating 
systems  (which  the  Wang  pc,  and  the  Zenith  Z-248,  the 
TeleVideo  all  operate  on)  is  called  BASIC.  Although  each 


computer  system  has  its  own  actual  version  of  BASIC,  the 
basis  for  these  different  versions  is  the  same  for  all.  In 
other  words,  although  each  of  the  computer  systems  will 
have  a  few  "special"  commands  peculiar  to  its  own  system, 
the  majority  of  the  commands  that  each  system  will  execute 
are  the  same.  Thus,  the  program  on  Interior  Lighting 
Design  developed  for  this  project  will  be  programmed  in  the 
programming  language  of  BASIC  in  such  a  way  as  to  maximize 
transportability  between  computer  brands. 

Fortunately,  since  BASIC  is  essentially  universal 
among  computer  systems,  it  is  also  well  known  by  computer 
programmers,  and  is  fairly  easy  to  learn  by  those  who  are 
not  computer  experts.  This  essentially  answers  to  the 
concern  regarding  updates  and  expansion.  It  is  important 
to  make  the  programming  easy  to  follow  and  understand. 

This  will  be  done  by  ensuring  that  all  variable  names  are 
identified,  by  commenting  the  programming  lines,  and  by 
breaking  the  program  into  small  Interdependent  parts  called 
subrout i nes . 

Programming  Considerations 

There  are  three  major  programming  considerations  for 
the  development  of  this  computer  program  on  interior 
lighting  design.  These  considerations  are:  i)  "user 

friendliness";  2)  proper  information  databases;  and  3) 
meaningful  output.  "User  friendliness"  is  a  term  that 


simply  means  the  program  should  be  easy  for  the  design 


engineer  to  use.  Current  developments  in  computer-aided 
engineering  (CAE)  encourage  "menu"  driven  programs  to  make 
a  program  more  user  friendly.  With  the  use  of  "menus,"  the 
user  chooses  from  a  preset  listing  to  answer  questions 
posed  by  the  program.  Figure  3.1A  illustrates  a  typical 
non-menu  driven  program  statement  that  would  require  manual 
responses  from  the  user.  Figure  3. IB  illustrates  how 
Figure  3.1A  could  be  turned  into  a  menu-driven  program 
statement.  The  non-menu  type  statement  does  not  give  the 
user  any  help  as  to  what  would  be  an  acceptable  or  standard 
answer,  whereas  the  menu-driven  statement  does  give  the 
user  help  -  and  answers.  The  program  developed  for  this 
thesis  effort  will  be  menu-driven. 

A  menu-driven  program,  although  user  friendiy, 
requires  a  greater  amount  of  stored  information  than  does  a 
non-menu  driven  program.  All  of  the  information  that  the 
program  needs  to  "help"  the  design  engineer  must  be  stored 
where  it  can  be  referenced  by  the  program.  An  extensive 
set  of  data  will  be  required  to  set  up  proper  menus  for 
this  program.  Program  development  for  this  thesis  effort 
will  create  one  set  of  information  data  that  can  be  updated 
or  changed  by  the  user.  A  second  set  of  data  will  be 
protected  from  design  engineering  changes.  This  is  because 
some  data,  such  as  lamp  style  data  needs  periodic  updating, 
whereas  other  data,  such  as  the  effective  reflectance 
tables  (Table  2.3),  do  not  need  to  be  updated  or  changed. 


Please  input  the  required  room  information: 

Room  use  ?  _ 

FC  level  ?  _ 


Please  choose  one  of  the  following  for 
required  room  information: 


CHOICE 


ROOM  USE 
OFFICE 

CONFERENCE  ROOM 

WAREHOUSE 

OTHER 


FC  LEVEL 


Figure  3.1  --  Menu  Screen  Comparison 


The  third  primary  consideration  for  this  computer 
program  is  ensuring  meaningful  output.  One  of  the  best 
operations  a  computer  performs  is  "number  crunching,"  but 
unless  the  program  is  selective  in  choosing  which  number  to 
give  display  for  the  design  engineer,  the  computer  is  more 
than  capable  of  displaying  a  mass  of  numbers,  all  of  which 
may  oe  irrelevant.  Thus,  this  program  should  give  only 


meaningful  output  to  the  design  engineer. 


Actual  Program  Development 

In  the  pre-programming  section,  the  two  considerations 
discussed  were  to  make  the  program  work  on  as  many 
different  computers  as  possible  by  using  a  computer 
language  called  BASIC,  and  by  using  this  language,  make  the 
program  easily  expandable.  Both  of  these  considerations 
were  taken  into  account  during  the  actual  program 
deve 1 opment . 

The  program  (to  be  referenced  to  as  "LIGHT1A" 
hereafter)  has  been  run  on  three  different  computer 
brands.  These  brands  were  the  Wang  pc  (which  was  the 
primary  objective),  the  Zenith  Z-248,  and  the  TeleVideo  XL 
portable  computer.  LIGHT1A  performed  properly  on  all  three 
brands.  The  actual  BASIC  source  code  for  LIGHT1A  is  given 
in  Appendix  A. 

In  the  formulation  of  L1GHT1A,  the  overall  program  was 
actually  split  into  three  sub-programs.  The  primary  reason 
for  this  "split"  was  to  stay  within  the  computer  memory 
space  allowed  by  the  BASIC  language.  (BASIC  allows  only  64 
kbytes  of  memory  to  be  used,  no  matter  what  the  size  of  the 
computer  hardware  memory  available.)  The  first  sub-program 
is  strictly  held  to  a  copyright  screen,  and  a  main  menu 
which  "calls”  the  other  two  sub - pr ogr ams .  The  second  sub¬ 
program  records  the  room  information  and  the  luminaire 
information,  and  performs  the  actual  calculations  as 


described  in  Chapter  II.  The  third  sub-program  allows 


the  design  engineer  to  update  the  "changeab I e"  data  needed 
in  the  program,  and  to  produce  printouts  of  these  data 
files  enabling  the  user  to  keep  a  hardcopy  of  them. 

Both  of  the  second  two  sub-programs  are  split  into  the 
interdependent  sub-routines  mentioned  in  the  previous 
sections.  A  listing  of  these  sub-routine  titles  is  given 
in  Appendix  B.  These  sub-routines  split  the  given 
sub-program  into  small  "logical"  elements  of  program 
development.  As  an  example,  each  separate  step  of  the 
calculation  stage  is  performed  in  a  separate  sub-routine. 
This  sub-routine  type  of  set-up  will  enable  future 
expansion  of  LIGHT1A  by  allowing  each  sub-routine  to  be 
copied  intact  and  reused  if  necessary  to  perform  the  same 
work  In  another  area  of  application. 


Actual  Program  Usability 

In  the  programming  considerations  section  of  this 
chapter,  there  were  three  major  considerations  discussed. 
These  considerations  were  using  "menus"  to  make  the  program 
user  friendly;  creating  a  large  amounf  of  stored  data, 
both  changeable  and  unchangeable,  to  support  the  menus; 
and  ensuring  meaningful  output.  These  cons  i  derat  i  ons  were 
taken  into  account  during  program  development.  The 
following  discussion  will  describe  how  these  three 
considerations  were  built  into  the  program. 

During  the  development  of  LIGHT1A,  the  program  was  set 


up  so  that  the  design  engineer  could  either  use  "help" 


3. 6 


menus  (or  "tables”  as  they  are  referenced  in  the  program) 


or  just  answer  questions  that  LIGHT1A  asks  to  input  the 
necessary  information  requirements.  Menus  similar  to 
Figure  3. IB  are  generated  to  help  the  user  answer  the 
questions  on  the  following  areas: 

1.  Actual  room  use  and  required  FC  level 

2.  Room  surface  color  and  reflectance  ratios 

3.  Room  cleanliness  factors  and  cleaning  cycle 

4.  Light  source  type  selection 

5.  Fixture  style 

6.  Fixture  distribution  type 

7.  Fixture  maintenance  categories 

8 .  Lamp  style 

Other  questions  that  LIGHT1A  asks  are  preceded  by  prompts 
that  attempt  to  help  the  design  engineer  understand  the 
question.  If  the  design  engineer  chooses  no t  to  use  the 
menus.  LIGHT1A  Issues  sets  of  questions  that  the  he/she 
must  answer  to  input  the  necessary  information  on  the  above 
topics  so  that  the  calculations  can  be  performed. 

To  support  the  menus  described  above,  a  number  of  data 
files  had  to  be  created  to  allow  L1GHT1A  to  access  the 
information  needed  to  generate  the  menus.  This  was  the 
second  area  discussed  in  the  programming  consideration 
section.  Two  types  of  data  files  were  created  in  the 
development  of  LIGHT1A.  The  first  type  can  be  described  as 
"changeable."  This  set  of  data  files  uses  the  third  sub- 


A 


1 


i 
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program  described  in  the  previous  section  to  allow  the 
design  engineer  to  update  the  files  when  necessary.  These 
files  include  the  information  needed  to  create  the  room  use 
and  required  FC  menu,  the  room  surface  color  and 
reflectance  ratio  menu,  the  fixture  style  menu,  and  the 
lamp  style  menu.  Except  for  the  room  use  and  required  FC 
menu,  the  data  stored  in  these  menus  are  the  type  that 
supports  the  design  engineer’s  own  design  preference  since 
each  designer  will  have  his/her  own  "favorite”  colors, 
fixture  styles,  and  lamp  styles.  The  room  use  and  required 
FC  level  menu  is  generated  from  data  taken  from  the  AFR 
88-15  (Table  2.1),  and  will  only  need  updating  if  the 
regulation  changes.  Along  with  the  ability  for  the  design 
engineer  to  change  the  information  that  these  data  files 
contain,  the  third  sub-program  referenced  in  the  previous 
section  allows  the  design  engineer  to  get  a  hardcopy  of  the 
files  through  a  printer.  Appendix  C  contains  a  hardcopy 
listing  of  the  four  files  described  here  to  be 
"changeab 1 e . " 

The  second  type  of  data  file  that  was  created  for 
LIGHT1A  is  not  "changeable".  Included  in  this  type  of  file 
was  the  data  for  the  room  cleanliness  factors  menu,  the 
fixture  distribution  menu,  and  the  fixture  maintenance 
category  menu.  Also  included  in  this  type  of  data  file  was 
the  "number  charts"  that  are  required  to  be  used  in  the 
calculations  (Tables  2.3,  2.11,  and  2.12,  and  Figures  2.3 
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and  2.4).  All  of  this  data  can  be  considered  constant.  In 
other  words,  this  data  is  never  changed  in  its  use  within 
the  Zonal  Cavity  Method  of  lighting  design. 

The  last  major  consideration  during  the  programming 
stage  of  the  thesis  was  the  aspect  of  ensuring  that  the 
program  gives  a  meaningful  output.  The  best  way  to  do  this 
is  to  use  L1GHT1A  to  perform  lighting  design  calculations, 
and  then  make  sure  that  the  numbers  generated  by  the 
program  are  accurate.  Chapter  IV  will  compare  how 
LIGHTlA’s  calculations  compare  to  the  ones  performed  in 
Chapter  II.  Along  with  showing  the  output  of  the  program, 
Chapter  IV  will  walk  through  the  LIGHTlA’s  method  of 
requesting  information  from  the  design  engineer,  and  will 
show  some  of  the  computer  screens  generated  by  LIGHT1A. 


Verification 


There  is  nothing  more  disturbing  then  to  rely  on  a 
piece  of  equipment,  only  to  find  out  that  it  doesn’t  work 
properly  when  you  use  it.  Similarly,  a  computer  program 
that  puts  out  false  calculations  is  useless.  Even  more 
unfortunate,  many  times,  unless  the  program  is  checked  by 
another  means,  the  faulty  calculations  are  not  caught. 
Because  of  this,  all  new  software  packages  should  be 
verified  for  usefulness  (32:94). 

To  verify  that  LIGHT1A  performs  accurate  lighting 
design  calculations,  this  chapter  will  quickly  walk  through 
the  example  problem  that  was  used  throughout  Chapter  11 
using  the  program.  Charts  2.1,  2.2,  and  2.3  will  be 
compared  to  computer  generated  "screens"  throughout  this 
chapter.  ("Screen"  refers  to  what  is  actually  shown  on  the 
screen  of  the  computer’s  CRT.)  Only  specific  "screens" 
needed  to  illustrate  the  LIGHTlA’s  ability  will  be  shown  in 
this  chapter.  For  a  complete  set  of  screens  that  are 
generated  to  perform  this  problem  from  beginning  to  end  on 
LIGHT1A,  refer  to  Appendix  D. 

LIGHTlA’s  Solution 

Chart  2.1  should  be  referenced  for  a  complete  listing 
of  the  room  information  generated  for  the  example  problems 
in  Chapter  II.  Screen  4.1  will  be  the  first  working  screen 


ROOM  INFORMATION  REQUIREMENTS 


<  1 ) 

REFERENCE  DATA: 

Building  * 

Room  * 

Iteration:  1 

(2) 

Rood  Use: 

FC  Requirements:  0 

(3) 

ROOM  DIMENSIONS: 

Ce 1 1 1 ng 

Height 

Length:  0 

Perimeter: 

0 

F  1  x  ture 

He  1 ght 

Width:  0 

Area : 

0 

Working 

Height 

(A) 

ROOM  REFLECTANCES: 

Celling  Color: 

Ref  1 ectance :  0  % 

Ual 1  Color: 

Ref  1 ectance :  0  % 

Floor  Color: 

Ref  1 ectance :  0  % 

(S) 

Rood  Condition: 

C 1 oin 1 ng  Cyc 1 e :  0 

months 

Enter 

selection  »  ( * )  for 

data  input, 

o  r 

(0)  to  continue: 

V _ J 

Screen  4.1  --  Initial  Room  Information  Screen 


that  the  program  will  generate  when  using  the  "help"  menus 
of  LIGHT1A.  At  the  beginning,  this  screen  will  not  contain 
any  information  concerning  the  room.  To  fill  in  the  room 
information,  the  design  engineer  simply  enters  the  number 
of  the  item  that  he/she  wishes  to  complete.  For  example, 
to  input  the  Room  Use  data,  the  design  engineer  would  enter 
"2."  This  would  cause  the  AFR  88-15  tables  (Table  2.1)  to 
come  up  on  the  screen  so  that  the  base  engineer  may  choose 
a  room  use  and  associated  FC  level  requirement.  After  a 
choice  is  made  and  entered,  Screen  4.1  will  return  to  the 
screen  with  that  chosen  information  showing  in  the  proper 
location.  This  procedure  is  repeated  until  all  of  the  room 
information  requirements  are  entered.  Screen  4.2  is  the 


same  as  Screen  4.1  but  with  all  the  room  information 


V. 
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ROOM  INFORMATION 

REQUIREMENTS 

<  1  ) 

REFERENCE  DATA: 

Building  •  None 

Room  *  None 

Iteration:  1 

(  2 ) 

Room  Uie:  General  Offices 

FC  Requirements: 

:  50 

(3) 

ROOM  DIMENSIONS 

Celling 

Height: 

10 

Length:  40 

Per  1 me  ter : 

160 

F 1 x  ture 

Height: 

8 

Width:  40 

Area : 

1600  Working 

Hel ght : 

2.5 

(  4  ) 

ROOM  REFLECTANCES: 

Celling  Co  lor: 

Winter 

Whl  te 

Ref  1 ectance :  83 

% 

Wall  Color: 

SI  1 ver 

Lining 

Ref  1 ectance :  70 

% 

Floor  Color: 

Crayon 

B  1  ue 

Re  f 1 ectance :  20 

% 

(  S  ) 

Root  Condition: 

Clean 

Cleaning  Cyc 1 e : 

18 

months 

Enter 

■  election  •  <  *  > 

for  data  1 nput , 

o  r 

( 0  >  to  cont 1 nue : 

Screen  4.2  --  Completed  Room  Information  Screen 


showing.  Note  that  Screen  4.2  contains  the  same 
Information  as  does  Chart  2.1  of  Chapter  II. 

Once  the  room  information  is  completely  entered,  the 
design  engineer  must  then  choose  the  type  of  light  source 
that  is  wanted.  Screen  4.3  indicates  the  choices,  which 
are  similar  to  those  listed  in  Table  2.5,  available.  Also, 
the  design  engineer  is  asked  if  a  fixture  in  memory  is 
wanted.  If  a  fixture  in  memory  i_s_  wanted,  LIGHT1A 
generates  a  menu  showing  the  design  engineer  what  choices 
are  available  in  the  source  type  that  was  picked  (for 
example  --  fluorescent).  The  design  engineer  simply  needs 
to  pick  one  of  the  fixtures  listed,  and  then  a 
corresponding  lamp  style,  to  fulfill  the  luminaire 
information  requirements  of  LIGHT1A. 


LIGHT  SOURCE  CHOICES 
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CHOICE 

LIGHT  SOURCE  TYPE 

1 

I ncandescent 

(INC) 

2 

F 1 uorescent 

(F) 

3 

Mtrcury  Vapor 

(MV) 

4 

Metal  Hal  lde 

(MH) 

S 

High  Pressure  Sodium 

( HPS  ) 

Enter  CHOICE  •  for  source  selection:  2 


Do  you  went  to  use  a  fixture  stored  In  memory  (Y/N)  ? 


V _ 

Screen  4.3  --  Light  Source  Choices  Screen 

If  a  fixture  in  memory  is  not  wanted  (as  in  our  case 
with  the  example  problem),  the  design  engineer  must  answer 
a  series  of  questions  to  tell  LIGHT1A  what  kind  of  fixture 
that  will  be  used.  After  this  information  is  entered, 
LIGHT1A  determines  the  coefficient  of  utilization  (CU> 
values  that  must  be  entered  to  perform  the  calculations, 
and  prompts  the  base  engineer  for  those  values.  Screen  4.4 
shows  the  screen  that  LIGHT1A  generates  after  the  fixture 
information  is  entered.  The  reader  will  notice  that  the 
"Fixture  File  #"  and  the  "Lamp  File  *"  spaces  are  blank. 
These  two  items  are  only  used  when  fixture  and  lamp 
information  is  taken  from  memory.  Screen  4.4  can  be 
compared  to  Chart  2.2  and  contains  all  the  information 
pertaining  to  the  luminaire. 
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LUMINAIRE  INFORMATION  REQUIREMENTS 


Building  *  None  Room  *  None 


Iteration:  1 


Cl)  LUMINAIRE  INFORMATION: 

Fixture  File  I 
Fixture  Make:  Llthonla 
Fixture  Model:  2PM4-240 

(2)  LAMP  INFORMATION: 

Lamp  File  I 
Lamp  Type:  F40 
Quantity:  2 

(3)  DIFFERENT  SOURCE  TYPE 


S/MH  Ratio:  1.2 

Maintenance  Catagory:  V 
Dlitrlbutlon  Type:  5 

Lamp  Uatts:  40 

Initial  Lumens:  31S0 

Maintained  Lumens:  2770 


Enter  selection  •  (x)  for  data  input,  or  (0)  to  continue: 

^ _ _ _ ✓ 

Screen  4.4  --  Luminaire  Information  Screen 


After  all  the  room  and  luminaire  information  is 
entered,  LIGHT1A  performs  the  lighting  design  calculations 
that  were  performed  in  Chapter  II.  Screens  4.5  and  4.6 
give  the  design  engineer  all  the  information  and 
calculation  results  that  are  pertinent  to  the  lighting 
design.  Table  4.1  is  a  copy  of  the  hardcopy  that  LIGHT1A 
will  produce  on  a  printer  if  the  design  engineer  desires  a 
permanent  copy  of  the  results.  For  ease  of  comparison,  the 
reader  should  observe  Table  4.1  and  Chart  2.3. 

The  final  calculation  for  the  number  of  fixture  number 
required  in  this  example’s  room  is  24  for  both  the  hand 
calculations  (Chapter  II)  and  the  computer  calculations 
(this  chapter).  The  only  differences  that  can  be  noted  are 
the  results  for  the  effective  ceiling  reflectance  (78  by 
hand  verses  76  by  computer),  and  the  final  CU  value  (0.751 
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FINAL  DESIGN  CALCULATIONS 


Bui  1 d 1 ng 

*  None 

Room  »  None 

I tera  1 1  on : 

1 

Room  Use: 

General 

Offices 

FC  Requ i red : 

50 

CCR 

=  0.50 

Celling  Reflectance: 

83 

Effective: 

76 

RCR 

=  1.38 

Wall  Ref  1 ectance : 

70 

FCR 

*  0.63 

Floor  Reflectance: 

20 

Ef  feet i ve : 

21 

Fixture  Make:  Lithonia  Model  *  2PM4-240  2  tube 


Critical 

PFR 

20 

S/MH  Ratio 

*  1.2 

CU 

PCR 

80 

70 

Va 1 ues 

PUR 

70 

70 

Total  LLF 

*  0.727 

RCR 

--  -- 

Final  CU 

*  0.745 

1 

77 

75 

2 

71 

70 

Number  of  Fixtures  Required:  23.44 
How  many  fixture*  do  you  want  to  use  ? 

Screen  4.5  --  First  Screen  of  Calculation  Results 


FINAL  DESIGN  CALCULATIONS 


A 


Bui Idlng  1 

None 

Room  1  None 

I  terat 1  on 

:  1 

Room  Use:  i 

Genera  1 

Offices 

FC  Requlr 

ed :  5< 

Fixture  Make:  Lithonia  Model 

1  2PM4-240  2  tube 

LLD  = 

0.879 

Floor  Cavity  Factor  * 

1 . 007 

LDD  * 

0.853 

Final  CU  Value  * 

0. 745 

RSDD 

s 

0.  969 

Tota  1 

LLF  « 

0.  727 

S/MH  Ratio  * 

1 . 2 

Spacing  Criteria  (ft): 

6.6 

Initial  FC 

Lev#  1  : 

70 

Fixture  1  Required: 

23. 44 

Ma 1 nta 1 ned 

FC  Lev# I :  51 

Fix  tur#  •  Used : 

24 

ENTER: 

(l:  To  do  another  iteration  of  thii  room 

(2)  To  go  to  Main  Menu,  clearing  all  variable* 

(3)  To  get  a  hardcopy,  and  return  to  thl*  icreen 


Screen  4.6 


Second  Screen  of  Calculation  Result: 
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Table  4.1  --  Hardcopy  of  Calculation  Results 


INTERIOR 

LIGHTING 

DESIGN  PROGRAM  OUTPUT 

BUILDING  # 

None 

ROOM 

«  None  ITERATION:  1 

ROOM  INFORMATION: 

Use:  General  Offices 

FC  Required: 

50 

Length : 

40 

Per imeter  : 

160 

Width: 

40 

Area : 

1600 

Celling 

Height: 

10 

CCR:  0.50 

Fix  ture 

Height: 

8 

RCR :  1.38 

Working 

He  1 ght : 

2.  5 

FCR :  0.63 

C .  Color 

:  Winter 

White 

Reflectance:  83 

Effective:  76 

W.  Color 

:  Si  1 ver 

Lining 

Ref  1 ectance :  70 

F.  Color 

:  Crayon 

Blue 

Ref  I ectance :  20 

Effective:  21 

Room  Condition: 

C  1  ean 

Cleaning  Cycle 

:  18  months 

LUMINAIRE  INFORMATION: 


Fixture  File 

» 

Fixture  Make: 

Li thonia 

Lamp  File  * 

Fixture  Model 

:  2PM4-240 

Lamp  Type:  F40 

S/MH 

Ratio: 

1 . 2 

Lamp  Quantity: 

2 

Maintenance  Category: 

V 

Initial  Lumens: 

3150 

Distribution 

Type 

J 

5 

Maintained  Lumens: 

2770 

Necessary  Values 

from 

Fixture’s  CU 

Chart : 

LLD: 

0.879 

LDD: 

0.853 

PFR 

20 

RSDD : 

0.969 

PCR 

80 

70 

Total  LLF : 

0.  727 

PWR 

70 

70 

RCR 

Floor  Cavity  Factor 

1.007 

Final  CU: 

0.  745 

1 

77 

75 

2 

71 

70 

RESULTS:  Spacing  Criteria  (ft):  6.6 


Fixture  *  Required: 
Fixture  »  Used: 


23.44 

24 


Initial  FC  Level  : 
Maintained  FC  Level: 


70 

51 


by  hand  verses  0.745  by  computer).  These  differences  are  a 
factor  of  how  LIGHT1A  was  programmed  to  use  the  effective 
reflectances  table  (Table  2.2.3).  In  developing  the  data 
set  for  reference  by  the  program,  this  table  was  reduced  to 
the  equivalent  of  a  10  X  10  X  10  matrix.  This  was  done  to 
stay  within  the  BASIC’S  memory  criteria.  Any  number  needed 
that  is  not  in  the  matrix  directly  is  extrapolated.  This 
extrapolation  process  causes  the  ceiling  effective 
reflectance  to  be  slightly  off  in  this  example,  also 
resulting  in  the  final  CU  value  being  lower.  It  should  be 
noted  that  the  effective  floor  reflectance  was  calculated 
the  same  way,  using  the  same  matrix,  and  that  LIGHTlA’s 
value  matched  exactly  to  what  was  calculated  bv  hand. 

A  .  s o  .  a  .  t  hough  the  r  ;  na  .  'J  /a  .  ue  o  r  -  1  j H T  A  , a  s  s  g  *  • 
lower,  the  final  number  of  fixtures  ca.cjiated  remained  * - e 
same  after  rounding  (to  obtain  a  whole  number  of  fixtures 
occurred.  Noting  these  slight  differences.  : t  can  ce 
concluded  that  LIGHT1A  performs  proper i v  and  within 
reasonable  accuracy. 


V ■  Conclusions  and  Recommendations 

Cone  I  us i ons 

At  the  end  of  Chapter  I,  the  stated  objectives  for 
this  thesis  effort  were  to  develop  a  computer  software 
package  on  interior  lighting  design  that  could  be  used  by 
base  civil  engineering  personnel;  and  in  developing  such  a 
program,  make  it  work  on  as  many  different  computer  brands 
as  possible.  Along  with  these  objectives,  it  was  stated 
that  this  software  package  should  be  distributed  through 
the  AFIT  School  of  Civil  Engineering  and  Services 
electrical  engineering  department,  AFIT, 'DEE. 

in  addition  these  basic  objectives.  Chapter  !  i  i 

:•  j'.eJ  *  r  e  e  c  a  -  .  ;  ;  e  n  s  .  j  e  r  i  c  .  c  n  s  t  "a  t  -ere  ;  v.jije;  *  _■  t  e 

met  during  the  actual  programming  stage  or  this  thesis 
effort.  The  first  consideration  was  to  make  the  program 
"user  friendly"  D»  making  it  "menu  driven.”  The  actual 
program  was  set  up  so  that  the  design  engineer  could  choose 
to  use  the  "menus"  if  desired.  This  option  was  given 
because  once  the  design  engineer  becomes  familiar  with  the 
program  and  its  information  requirements,  he/she  may  not 
require  the  help  that  the  menus  are  intended  to  give.  The 
second  programming  consideration  stated  in  Chapter  I  1  I  was 
the  aspect  of  having  a  large  set  of  information  data 
files.  These  data  tiles  were  required  to  support  the  use 
of  "menus"  in  the  program.  During  actual  programming,  the 
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program  was  given  both  "changeable"  and  "unchangeable"  data 
files.  "Changeable"  data  files  are  required  because  the 
data  contained  within  them  requires  periodic  updating  with 
"current"  information.  "Unchangeable"  data  files  contain 
information  pertinent  to  the  lighting  design  method  used 
(Zonal  Cavity  Method),  and  therefore  do  not  need  to  be 
changed  or  updated.  The  third  programming  consideration 
pointed  out  in  Chapter  III  was  the  fact  that  the  program’s 
results  must  be  verified  to  ensure  "usefulness."  Chapter 
IV  walks  though  an  example  problem  which  is  used  to 
demonstrate  the  accuracy  of  the  program  (reworking  the  same 
problem  done  in  Chapter  II  by  hand). 

LIGHT1A  is  the  software  package  that  has  been  created 
in  this  thesis  effort.  The  entire  source  code  of  L1GHT1A 
is  contained  in  Appendix  A.  A  diskette  containing  the 
source  code  may  be  obtained  from  AFIT/DEE,  WPAFB,  Ohio, 
45433.  This  software  package  was  created  in  a  computer 
language  called  "BASIC"  with  the  intent  to  make  it  as 
transportable  as  possible  between  computer  brands.  LIGHT1A 
has  been  tested  on  the  Wang  pc  computer,  as  well  as  the 
Zenith  Z-248  and  the  TeleVideo  XL  portable  computer.  By 
using  the  BASIC  programming  language,  the  lighting  program 
itself  should  be  easily  expanded  by  the  majority  of 
engineers  who  have  had  any  kind  of  programming  experience. 
The  electrical  instructors  at  AFIT/DEE  have  reviewed 


LIGHT1A,  and  will  start  distribution  to  the  participants  of 
the  October,  1987  basic  electrical  design  class. 

Recommendat ions 

Although  L1GHT1A  performs  well,  and  does  what  it  was 
intended  to  do,  it  does  not  cover  all  the  aspects  of 
lighting  design.  As  stated  throughout  this  thesis  there 
are  three  major  stages  to  lighting  design.  This  program 
performs  the  first  stage.  The  second  stage  of  lighting 
design  is  the  layout  stage.  In  stage  two,  the  number  of 
fixtures  calculated  in  the  first  stage  are  laid  out  in  a 
pattern  within  the  boundaries  of  the  room.  A  graphics 
program  that  allows  the  design  engineer  to  perform  this 
activity  on  the  computer  would  allow  the  design  engineer  to 
try  many  different  layouts  in  a  short  period  of  time. 

The  third  stage  of  lighting  design  is  the  "repeat" 
stage  where  the  first  two  stages  are  repeated  over  and  over 
allowing  the  design  engineer  to  choose  the  best  of  a  number 
of  designs.  LIGHT1A  does  not  yet  contain  the  ability  to 
store  the  designs  that  are  performed  in  computer  memory  for 
future  reference.  This  ability  would  be  very  beneficial 
when  considering  the  desirability  of  repeating  designs. 

Thus  it  is  recommended  that  LIGHT1A  be  expanded  to  allow 
the  storage  of  performed  calculations. 


Appendix  A:  Line  Code  for  Program  LIGHT1A 


This  appendix  contains  the  actual  BASIC  source  code 
for  the  program  entitled  LIGHT1A  that  was  developed  for 
this  thesis  effort.  The  total  program  is  made  up  of  three 
sub-programs.  These  sub-program  titles  are  listed  below 
along  with  the  page  number  that  they  each  start  on. 


Title  Page 

LIGHT1A . A. 2 

PROGRAM  1 . A.  3 

PROGRAM  2 . A.  33 


A.  1 


1  Gi-iT  1 A 


na 


«l 


1 


5  KEY  OFF 
10  lLS 

14  PRINT  TAB  <  15)  1  - " 

16  PRINT  TAB i 15)  "1 

15  PRINT  TAB (15)  ”1  !“ 

20  PR:INT  TAB ( 15)  11 1  Automated  Interior  Liqhtinq  Desiqn  . " 

22  PRINT  TAB (15)  “1  Version  liOl  '  !” 

24  PRINT  TAB (13)  "! 

26  PRINT  TAB (15)  "I  i" 

23  PRINT  TAB (15)  *!  Ccpvnqht  .'c>  1967,  Todd  A.  Grimes.  P.E. 

30  PRINT  TAB (15)  “! 

32  PRINT  TAB (15)  "1 

34  PRINT  TAB ( 15)  ”!  For  information  on  this  program  contact:  I” 

36  PRINT  TAB  (15)  ”1  I" 

38  PRINT  TAB (15)  “ I  -FIT/DEE  V' 

40  PRINT  TAB (15)  "1  AFIT  School  :+  Civil  Enqineennq  a  Services 
42  PRINT  TAB (15)  ''1  WRAPS.  OH  '45433  '  I " 

44  PRINT  TAB! 15)  Hi  Tel:  : 5 13)  255-4552  I" 

4a  PRINT  ’ABUf 

46  PRINT  TABUS/  "! 

30  PRINT  TABUS'  11  -  " 

52  PRINT  : PRINT 

54  PRINT  tab (26)  : INPUT  "Press  RETURN,  to  continue.".  5$ 

100  REM  +»****♦**■»***+**♦*  MAIN  PROGRAM  MENU  ♦♦♦***++**»»**t*+*+*»+*++++»-*4tt> 
105  REM 
110  REM 

115  ILS  : PRINT  : PRINT 

120  PRINT  TAB' 36)  'MENU  -  A" 

123  PRINT  .‘PRINT 

130  SRI  NT  tab  ..20)  "TYPE":  TAB '40  PROCEDURE" 


Copyright  >o  1967,  Todd  A.  Grimes.  P.E. 


For  information  on  this  program  contact: 
-FIT / DEE 

AFIT  'School  :+  Civil  Enqineennq  &  Services 
WPAFB.  OH  '45433 
Tel:  313)  255-4552 


*4C  PRINT  TAB' 21/  "l":  TAB  -Oj  Calculation  rrcaraar 
145  =RINT 

150  PRINT  TAB (21;  2 ;  TAB  .40)  'Upoate/Hardcopv  Proaram" 
155  PRINT  : PRINT 

160  PRINT  TAB (21)  "3":  TAB (40)  "END" 

163  PRINT  : PRINT  : PRINT  : PRINT  TAB (20): 

170  INPUT  "Please  enter  selected  procedure:  ",  B 

lT5  ON  5  GOTO  205.230, 195 

130  GOTO  115 

135  REM 

1=0  PEM 

:55  CLS 

200  SYSTEM 

205  CLS  : PRINT  :PRINT  .-PRINT  : PRINT  : PRINT 

206  PRINT  TAB (31 >  "PLEASE  BE  PATIENT" 

207  PRINT 

210  PRINT  TAB (32)  "LOADING  PROGRAM" 

215  CHAIN  "A: PROGRAM  1“ 

220  GOTO  115 
225  REM 

230  CLS  : PRINT  :PRINT  : PRINT  :PRINT  :PRINT 

231  PRINT  TAB (31 >  “PLEASE  BE  PATIENT" 

232  PRINT 

235  PRINT  TAB (32)  "LOADING  PROGRAM" 

240  CHAIM  "A:PP00RAM2" 

245  GOTO  115 
250  REM 
255  SEM 


105  PRINT  : PR I NT  iPRINT  : PRINT  : PRINT  : PRINT 

110  PRINT  TAB; 18)  “Please  piace  vour  DATA  DISK  in  the  A'  drive." 

115  PRINT  .-PRINT  -.PRINT 

120  INPUT  “  :res5  RETURN-  wnen  readv.  ".  B* 

125  REM 
130  CLEAR 
135  DEFINT  A-E 

200  REM 

202  DIM  RSDF (5. 2)  :DIM  LAi6.5) 

206  DIM  ACU >’ 4 )  :DIM  BCU(4. 

210  DIM  RMLSE4 C36)  :DIM  RMUSELEVEL •3c  :DIM  RMDTCD$i5.si 
214  DIM  (IF ACT  -1 2 , 5  ’ 

218  DIM  MFACT0R-3.20' 

222  DIM  £FF  =  10, 10 

226  DIM  pTMANi',30)  :DIM  PTC3LGP*i30>  .-DIM  PTREFU30! 

230  DIM  SOURCE* (5, 2) 

236  DIM  PFRi4)  :DlM  PCR;5)  : DIM  FWRi4> 

240  DIM  DTYPE* )5,7) 

244  DIM  ilCATi'6,7; 

248  DIM  LCODEtij. 10,2)  :DIM  LAMPDATAS5. 10.3' 

252  DIM  FCODE* 15. 10.41  sDIM  FKTDATA  i5.10.21 
256  DIM  GUI (10,4.2)  :DIM  CU2il0.3.2) 

260  DIM  CU3 ;K>,4,ii  :DIM  i2U4 ■  10, 3. 2; 

500  REM 

502  SOURCES <  1.1)=" Incandescent”  : SOURCE* (1,2)='' INC" 

504  SOURCE* <2, 1) -'Fluorescent"  : SOURCE* (2 . 2> =',tr" 

506  SOURCE* (3,  l)="Merci;rv  Vapor"  :  SOURCE*  13. 2) ="MV" 

508  SOURCE* !4. l)=“Metal  Halide"  :S0URCE*<4.2>="NH" 

310  SOURCE* <5. 1 -="Hiah  Pressure  Ssdiua"  : SOURCE* >5. 2;="r,PS'' 

312  ;‘EM 

314  ITYFEiii,  1  •■=  'Indirect'  iDTYFES'.  1.2)*"W-i'>0"  ; £-T ; P E S - 1 , 2  *' 

5ia  DTYPEK2. l)="5eiJU-Irdir9Ct“  : DT r FES >2.2'=  "60-°0 “  :DTYFE*t2.3)=" 

518  DT/PE*i3,i;="Direct-inoirect''  :DTYPEt(3,2)=  '40-60"  : DTVFES <3, 3>  = ' 


DTVFE*  (5.  l)=''DirecT“ 


; £-T r F E S - 1 , 2  *'--10” 
:DTYFE*<2.3i='' 10-40' 

: DTVFE* 1 3,3;=  '60-40" 

:  DT vpEf (4.3)=" 60-90 " 
:DTYF'E*(5,3)="°0-100" 


514  2TVFES  i  i ,  1  >  =  'Indirect '  i D7YFEI ,  2)  ; £-T r F E 5  - 1 , 2  =  l  '-iO" 

Sia  DTYPE* (2.  Ii="se«l-Irdir9ct“  :DTYFE*'2.2j="60-i50“  :DTYFE*<2.3i='i0-40 ' 

518  DTVFE* 3, i;="Direct-inairecf  : DTVFE* i 3 , 2 » =  "40-60"  : DTVFE* 1 3,3;  =  "cO-40" 

520  DTYPES (4.1) ="Semi-Di rect "  : DTVFE* ;4, 2' ="10-40”  : DT vpE$ (4.3)=" 60-90 " 

522  DTYPEt(5.  l!=''Dir9CT“  :DTYPE*i5,2;="0-i0"  :DTVF'E*(5,3)="50-100" 

524  REM 

5~6  FFR i  1 ;  =3u  iPFRi2)=2o  : F'FR ( 3 ) = 1 0  sPFR’.Aiw) 

528  PCR i 1 ) =80  :PCR;2)='0  : PCR  31=50  :PCR(4.=;o  :PCR(5  =10 

530  FWR'l i=70  : PWR < 2 » =50  :FNF  .31=30  : P WF; 4 )  =  i o 

532  REM 

534  LA'.l,  1.  =.033  :LAil,2)=.071  :lA- i.3)=. Ill  : L A 1 1 , 4 1  = .  1 62  :LA’1,3'-=.301 

536  LA(2,i'=.o33  !LA'.2.2.‘®6,8oWUlE-02  :LAi2,3’=.  10*2  iLA(2.4i=.  14'  :LA>^.5;=.  168 

333  LA(3, 1/=7.R00001E-02  :LA<3. 2>=.  106  :LA(3.3)=.  143  :LA(3.4>.184  :LA;3.5)=.23a 

540  LA (4, 1 )  =. 07  :LA(4,2>=.  131  :LA>'4.3'=.216  :LA’4,4'.=,314  ; LA (4,5)  =.452 

342  LA’S,  1  -=.079  :LA-5.2>=.  128  :LA>5,3  =.lR  :LA,5.4>*,24R  : LA <5. 5)  =.321 

544  LA-6, 11=.076  :LA(6,21=.145  :LA’a,3)=.2l8  :LA<6,4.=.284  : LA <6, 5’ =. 3°6 


:  PCR  31=50  : PCR (4 1 =30  : PCR (3- *10 


342  LA’S, 1 1  = . 072  : LA  - 
544  LA;6,1)  =  .076  : LA  - 
546  RE^ 

543  MFACT’ 1.11=1.051 
550  MFACT:  1.5; =1.00'? 
352  MFACT !2. 41 =.=7 


MFACT;  1.21=1. 044  IMPACT ( 1, 31=1.023  : MFACT ■ 1,45=1.017 
MFACT i2. i;=,918  : MFACT (2, 2.-  =. ?26  :MFACT(2,3i=.?53 
MFACT i2,5'=.°S6 


336  RSDF(5, 1;=.R2  :RSDF!4, l >  =. 34  :R5DF(3, l)=.7a  : RSDF < 2. li=.73  :RSDF(1,1;=.6 
558  RSDF *5,2)=. 33  : RSDF (4, 2> =. 72  : RSDF (3, 2) =. 67  : RSDF <2. 2) =.67  : RSDF ( 1 , 2) =. 5 
560  REM 

562  I TER ATP  =  1 
56?  REM 

1 000  REM 

1005  OPEN  "I".  41.  "A: AFP8813. INF" 

!-'»10  FOP  A=!  TO  36 

1015  INPUT#!,  RMUSE* (A) ,  RMUSELEVEL  iA> 


1020  NEXT  A 
1022  CLOSE  *1 

1030  REM 

1 " 25  REM 

’.040  OPEN  T.  #1.  “AiftMDlRT.  INF" 

10*5  FOR  A=1  TO  5 
1050  FOP:  B=1  TO  o 
1055  INPUT#!.  RMDTCD$(A,B> 

1060  NEXT  B 
1065  NEXT  A 
1070  CLOSE  #1 
1075  REM 
1080  REM 

1085  OPEN  "I".  #1,  "A:MAINTCAT. INF" 

1090  FOR  A=1  TO  6 
1095  FOR  B=1  TO  7 
1100  INPUTtl.  MCATI'A.d) 

1105  NEXT  B 
1110  NEXT  A 
1115  CLOSE  #1 
1 120  REM 
1125  REM 

1 130  OPEN  "I".  #1.  "A: REFLECTS. BAT" 

1135  cOfi  A=1  TO  30 

1140  INPUT  #1.  F'TMANi(A) .  PTCOLOR* <A) ,  FTREFL'.A) 

1145  NEXT  A 
1150  CLOSE  #1 
1155  REM 
11 DO  REM 

1165  OPEN  "I".  #1,  "A:LAMPDATA.DAT" 

1170  FOR  A=1  TO  5 
1175  FOR  B=1  TO  10 

1130  INPUTtl,  LC0BE»(A,B,1»,  LCODE* (A, B, 2! 

1185  INPUTtl.  LAMPDATA'A.B.  1 : ,  lAMP'DATA'A.S.2  .  LAMPBATA'A.B.3- 

1 1  or:  NEXT  A 

1195  NEXT  i 

1200  CLOSE  41 

1205  FEM 

1210  REM 

1215  OPEN  “I",  #1,  "A: FI XTDATA.DAT" 

1220  FOR  A=1  TO  5 
1225  FOR  B=1  TO  10 

1230  INPUTtl.  FCODEi(A.B.l).  FCCB£5(A.B.2» .  FC0DE*IA,B,3> .  FC0DE<iA,B.4'« 

1235  INPUTtl,  FIXTDATA (A, B, 1 ) ,  FI XTDATA <A, B, 2) 

1240  NEXT  B 
1245  NEXT  A 
1250  CLOSE  tl 
1255  REM 
1260  REM 

5100  REM  *♦***♦♦*****♦*♦♦♦**  MENU  —  B  *+****♦**♦*♦*♦♦**+*♦«*»♦**♦♦**♦♦*♦**♦♦*♦ 

5105  REM 
5110  REM 
5115  CL3 

5120  PRINT  , , "MENU  -  B" 

5125  PRINT  : PRINT 

5130  PRINT  ."TYPE  ".."PROCEDURE’’ 

5135  PRINT  rPRINT  : PRINT 

5140  PRINT  ,  "l",''New  Room  Calcs  -  Fixture  Number,  */o  Tables” 

5145  PRINT  .-PRINT 

5150  PRINT  , ’’2" , "New  Room  Calcs  -  Fixture  Number,  with  Tables" 

5155  PRINT  : PRINT 

5160  PRINT  ."'"."RETURN  Tr  MAIN  MENU” 

5165  PRINT  : PRINT  :PRINT  :PRINT  TAB(IO); 

5170  INPUT  "Please  enter  selected  procedure;  ",  B 
5175  FEM 


i\ 

M  . 


a 


. 


5:80  dm  B  GOTO  lOlOO, 11100.51*0 

- ‘ gc  -QTQ  "• [- 

51*0  :L3J:S«INT  : PRINT  : PRINT  : PRINT 

51*5  PRINT  TA8<20>  “Place  vcur  PROGRAM  0181  :n  tr-s  A*  drive.1 
5200  PRINT  : print 

5205  PRINT  T4B<26i:  : INPUT  "Press  RETURN  *nen  reaoy.H  B* 

5210  PRINT  : PRINT  : PRINT 

5215  PRINT  TA8I315  “LOADING  MENU  -  A" 

5220  CHAIN  “A:LIGHT1A", 100 
5225  REM 
5230  REM 

'•0100  REM  ♦♦*♦***♦♦»♦*+♦♦♦♦♦  NEW  ROOM  W/Q  TABLES  ***********•*•»**♦*♦♦*♦♦+♦■*<■♦♦♦*♦ 

10105  REM 
10110  REM 
10115  303UB  12100 


0120 

IF  B=2 

THEN 

-*  1  1C 

V  l «-  J 

GOSUB 

401Q0 

0130 

REM 

r,i 

i  j-j 

GOSUB 

50115 

1 1'. 

REM 

10145  30SUB  42100 
10150  REM 
!01S5  50RIJR  50i  or. 

10 ISO  ;EM 
10165  GOSUB  44150 
10170  REM 
10175  GOSUB  20100 

10130  ON  B  30SUB  40100,50115,42100,501*0.44150 
10185  IF  8=0  THEN  GOTO  10200 
10190  GOTO  10175 
101*5  REM 
1020.’  GOSUB-  24100 
10205  REM 
.  ^  0.  oGSuE’  45 loo 

•  ::i5  :f  -hem  gdsub  51  ho 

ZC-A 

.0230  GOSUB  21100 

1)235  ON  3  3’dSUB  471*X>.  43 100 

10240  IF  B=0  GOTO  10255 

10241  IF  8=3  THEN  10210 
10245  GOTO  10230 

10250  PEM 
:  -.>255  SOSUB  25100 
10260  REM 

1 ' 2=5  IF  DISTT7P  ■  1  OR:  DISTTYP  o  THEN  10275 
l  )2'0  GOTO  !02«0 
10275  PRINT 

10230  INPUT  “Ycu  aust  identify  a  friture  tvpe,  sress  RETURN  to  continue.  \  B* 

10285  GOTO  10210 

10290  GOSUB  36100 

102*5  REM 

10300  GOSUB  2*100 

10305  REM 

10710  GOSUB  22100 

10315  REM 

10320  GOSUB  30100 

10325  REM 

10330  GOSUB  23100 

10335  9EM 

10340  ON  B  GOTO  10125. 130. 5*  100 

•  j-'mc  ( 

10350  REM" 

10355  REM 

11100  REM  **♦*»♦♦*♦♦****♦*»♦  n£W  POi'M  W.  TABLES  *♦♦♦**♦♦♦**♦♦♦**♦♦*♦*♦♦♦♦♦♦♦♦♦» 

ilii.5  RE,1 


WB55585 


111*0  R£M 

11115  GOSUB  13100 

11120  IF  5=2  THEN  5100 

11125  n£M 

11130  3GSU3  20100 

11135  ON  B  3DSUB  40100. 41100. 42100, 43100.44100 

11140  IF  B=0  GOTO  11155 

11145  GOTO  11130 

11150  REM 

11155  30SUB  24100 

11160  REM 

:lio5  GOSUB  45100 

nro  REM 

11175  IF  STTAB=2  THEN  GOSUB  51100  ELSE  11190 

1 1135  REM 

11190  GOSUB  21100 

111 ?5  ON  B  'GOSUB  47100.  48100 

11200  IF  3=0  GOTO  11215 

11201  IF  B-7  THEN  11165 
i!205  GOTO  11190 

11210  REM 
11215  GOSUB  25100 

1  ♦  '  "I.*.  OCM 

.223  IF  DISTTfP  ;  1R  DIG*r'F  :  "HEN  :r'5 
11230  'GOTO  11250 
11235  PRINT 

11240  INPUT  "You  must  identify  a  future  tvpe.  Press  RETURN;  to  continue.  '.  f> 
1M45  GOTO  11165 
11250  GOSUB  26100 
11255  REM 
11260  GOSUB  29100 
11265  REM 
•  *.  27«‘>  GOSUB  22100 
REM 

'2:0  GOSUE  TO  Mo¬ 
ll  225  REM 
MMu  GuSL'B  23 MO' 

1 1*300  ON  B  GOTO  11130.130.57100 
11305  REM 
11310  REM 

121uu  REM  s)/o  TABLE  INTRO 

MM-5  REM 
"'ll  '  &EM 

12115  CLS  : PRINT  :PR1NT  : PRINT  : PRINT 

12120  PRINT  TAB-2''  'INSTRUCTIONS  -  4/C  TABLES'' 

12125  PRINT  : PRINT  : PRINT 

'This  procedure  will  prompt  you  with  questions  that" 
hit-  -r!,Jl  "you  need  to  answer  so  that  the  calculations  can  be" 

^4'.'  i-slNT  TAB ( 13)  "per -formed.  If  vou  cannot  answer  these  questions, " 

M145  PRINT  TAB; 13)  "you  should  return  to  MENU  —  B.  and  use  the  other" 

S,!i;  £?:],?  “Rr°cedure  available  -  'Fixture  Number,  witn  Tables.  " 
liljj  rPiNT  ! PnlNT 

UlfaU  PRINT  TAB. 13)  "Enter  .11  to  continue, 11 

12165  PRINT  TAB-13'  "  '2/  to  -eturn  to  MENU  —  B" 

12170  PRINT  TAB- 13)  : INPUT  "  B 

12175  RETURN 
12130  R.EM 
121:5  REM 

1310-)  REM  ♦♦***♦♦**♦*♦♦****♦  WITH  TABLE  INTRO  ****♦♦♦*♦♦♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦*♦♦*♦♦♦ 

1  .•!  .5  REM 
13110  REM 

13115  CLS  -.PRINT  -.PRINT  :PRINT  :PRINT 

13120  PRINT  TAB  27)  “INSTRUCTIONS  -  WITH  TABLES" 

i .iij  hf'iNf  2 F R ^ H i  jpniNT 


13130  PRINT  TAB 13)  "This  procedure  will  give  you  screens  that  oust  be  " 

13135  PRINT  TAB i 13)  "Pilled  out.  One  screen  will  be  tor  the  room  " 

13140  PRINT  TAB ( 13 »  "information,  the  other  screen  will  be  tor  the  ti-iture" 

13145  PRINT  TAB1 13)  “intermit ion.  To  fill  out  the  screens,  simply  enter" 

13150  PRINT  TAB' 13)  "the  numoer  to  the  ngnt  of  the  major  tome  desired." 

13155  PRINT  TAB i 13)  "Tables  .nil  be  given" to  you  when  possible  allowing" 

13160  PRINT  TAB i 13)  "vou  to  choose  the  nest  answer  for  your  situation." 

13165  PRINT  : PRINT 

13170  PRINT  TAB ( 13)  "Enter  il!  to  continue,” 

13175  PRINT  TAB (13)  “  u)  to  return  to  MENU  --  B" 

13130  PRINT  TAB (13)  : INPUT  "  B 

13185  RETURN 
13190  PEN 
13195  REM 

301  PA  REM  *♦♦****♦******•****  SCREEN  1  ♦****•»**»*********♦*♦***♦**+*♦•*♦**♦♦■♦+♦*■* 

20105  REM 
20110  REM 
20115  CIS 
20120  PRINT  " 

20125  PRINT  "ROOM  INFORMATION  REQUIREMENTS" 

20130  PRINT 

20135  PRINT  "  (1)  REFERENCE  DATA:” 

20140  PRINT 

20145  PRINT  "  Building  3  6LBGI: 

20150  PRINT  TAB (23)  "Room  *  ROOM* ; 

20155  PRINT  TAB (55)  "Iteration:”,-  ITERATE 
201*0  PRINT 

20165  PRINT  ”  (2)  Room  Use:  ROOMUSE$; 

20170  PRINT  TAB(43)  ”FC  Requirements:”;  FCLEVEL 
20175  PRINT 

20180  PRINT  ”  (3)  ROOM  DIMENSIONS:” 

20135  PRINT  TAB (55)  "Ceiling  Heiaht: FTlHGT 
20190  PRINT  “  Length:”;  RMLGTH: 

20195  PRINT  TAB!2S>  "Perimeter:";  RMP'ER; 

20200  PRINT  TAB!55)  “c!  :tur?  Memm:":  FTHST 
2v2')5  PRINT  "  wicch:  ;  .R/WfiTHj 


PRINT  TAB (28)  "Area:  RMFAREA; 

PRINT  TAB (55)  "Workine  Height:”;  FTWSHGT 
PRINT 

PRINT  "  4)  ROOM  REFLECTANCES:” 

PRINT 

FEM 

PRINT  "  Ceiling  Color:  CLCOLGR*; 

PRINT  TAB ( 43)  "Reflectance:”;  CEILREF; 

PRINT  ”7," 

PRINT  "  Wall  Color:  ";  WLCQLOR*: 

PRINT  TAB (43)  "Reflectance:”  WALLREF; 

PRINT  ”7.” 

PRINT  "  Floor  Color:  FLCOLORI; 

PRINT  TAB (43)  "Reflectance:";  FLOOREF: 

PRINT  "7.” 

PRINT 

PRINT  "  !5)  Room  Condition:  DIRTCD1; 

PRINT  TAB(43)  "Cleaning  Cycle:  CLCYCLE:”  months" 

PRINT  :  PR  I  NT 

INPUT  "Enter  selection  #  (:<)  for  data  input,  or  (0>  to  continue:  ",  B 

REM 

RETURN 

REM 

REM 

REM  *♦*♦*♦***•»******♦»  SCREEN  2  **+*♦********♦**♦*****♦♦•*♦♦***♦»♦♦**♦♦♦♦♦ 

REM 

REM 

CLS 

REM 


,1. 


l*.  (i  M.  m  •*,  «(.  it.  »i.  I**  |U  4l<  I't  4%  lit  iU'4>-  «lt  at.  «>.  *>.  *1.  i1t  *L  tlt'tl.  iU'iU'fcl.’A’tit'M.  ll.'iL'  lU1  >|A  H, 


21185  PRINT  “ 

21190  PRINT  TAB (40) 

,  • 

21195  PRINT 

*• 

21200  PRINT  "  >2) 

s’ 

21205  PRINT 

%■ 

2(210  PRINT  " 

21125  PRINT  TAB (231  "LUMINAIRE  INFORMATION  REQUIREMENTS" 
21130  PRINT  : PRINT 

21135  PRINT  "  Buildinq  #  BLDG$; 

21140  PRINT  TAB<33)  "Room  4  ROOM*: 

21145  PRINT  TAB, 55)  "Iteration:  ITERATE 

21150  PRINT  : PRINT 

21155  PRINT  ”  ;l)  LUMINAIRE  INFORMATION:" 

21160  PRINT 

21165  PRINT  *  Fixture  Fiie  4  FIXTFILEI; 

21170  PRINT  TAB (40)  "S/MH  Ratio:  ":  5TMHRAT 

21175  PRINT  “  Fixture  Make:  FIXTMAtEt; 

2118C'  PRINT  TAB(40)  "Maintenance  Cataqory:  MAINCATt 


PRINT  "  Lamp  File  #  LAMRFILE$: 

PRINT  TAB (40)  "Lamp  Watts:  L WATTS 

PRINT  "  Lamp  Type:  LTVPEJ; 

PRINT  T AB ( 40 j  "Initial  Lumens:  ";  INITLUM 

PRINT  11  Quantity:  LQUANT ; 

PRINT  TAB(40)  ’Maintained  Lumens:  “:  MAINTLUM 
PRINT 

PRINT  ”  (3)  DIFFERENT  SOURCE  TYPE” 

PRINT  : PRINT 

INPUT  "Enter  selection  #  (;:)  for  data  input,  or  (0)  to  continue:  \  B 
REM 

RETURN 

REM 

REM 

REM  ******************  SCREEN  3 

REM 

REM 

CL5 

PRINT  TAB (23)  ,_.NnL  uE:IuH  wALi. ULAT »uNs ' 

PRINT 

PRINT  "  Buildinq  4  BLDGf; 

PRINT  TAB (30)  "Room'#  ROOMi; 

PRINT  TAB (60)  "Iteration:  ITERATE 

PRINT 

PRINT  ”  Room  Use:  ROOMUSEI: 

PRINT  TAB (60)  "FC  Required:  ":  FCLEVEL 
PRINT 

PRINT  “  CCR  -  USING  "44.44";  TCAVRAT; 

PRINT  TAB (30)  "Ceilinq  Reflectance:  CEILREF; 

PRINT  TAB (60)  “Effective:  EFFCREF 

PRINT  "  RCR:  -  USING  "11.4#“;  RCAVRAT; 

GRINT  TAB (30)  "Wall  Reflectance:  *:  WALLREF 

PRINT  "  FCR  =  USING  'll. 44":  FCAVRAT; 

PRINT  TABI30)  "Floor  Reflectance:  FLOOREF: 

PRINT  TAB (60)  "Effective:  EFFFREF 

PRINT 

PRINT  "  Fixture  Make:  ";  FIXTMAKEt; 

PRINT  TAB (36)  "Model  4  ”:  FlXTMODELi; 

PRINT  TAB (59)  LQUANT;  "  tube" 

PRINT 

PRINT  "  Critical"; 

PRINT  T AB < 20 )  "PFR";  "  I";  TAB(25)  PFR<2): 

PRINT  TAB (60)  "S/MH  Ratio  =“;  STMHRAT 
PRINT  "  CU": 

PRINT  TAB (20)  "PCR";  ”  TAB(25)  PCR(Dl); 

IF  D2  >  0  THEN  PRINT  TAB136)  PCR(D2); 

PRINT  ”■ 

PRINT  ”  Values  TAB'IO)  ’PwR";  '  . TA6i25.  F wR v C 1  / : 


IF  CZ  0  THEN  PRINT  TAB '30'  PHR'CIv; 

IF  D I  j  THEM  PRINT  TAB(3o)  PUR. Cl.-:  ELSE  22255 

IF  C2  0  THEN  PRINT  TAB (41..  P«R(C2): 


PRINT  TABIou'  "Total  LlF  =  USING  lLF 

PRINT  TAB (20 i  “PCR":  “  1 " 

PRINT  TABuO;  “ - : - 

PRINT  TAB (SO)  "Final  CU  =  USING  "I.###":  FINALCU 
PRINT  TAB (19)  ARATIO;  TAB (24)  TAB(25)  ACU(l); 

IF  C2  >  0  THEN  PRINT  TAB (30)  ACU(2): 

IF  D2  >  0  THEN  PRINT  TAB (36)  ACLK3);  ELSE  22325 

IF  C2  >  0  THEN  PRINT  TAB (41'*  ACU(4); 

PRINT  ““ 

IF  El=l  THEN  22360 

PRINT  TAB*  1?)  BRATIO:  TAB(24)  "I";  TA6(25)  BCU ( 1  ; 

IF  C2  /  )  THEN  PRINT  tab (30)  BCLH2) ; 

IF  22  s  0  THEN  PRINT  TAB (36)  BCUQ:  ELSE  22355 

IF  C2  >  0  THEN  PRINT  TAB(41!  BCU<4); 

PRINT  “* 

PRINT  : PRINT 

PRINT  ‘  Number  ot  Fixtures  Required:  USING  NUMFJX 


PRINT  '  Number  ot  Futures  Required:  USING  NUMFJX 

PRINT 

INPUT  "  How  manv  ti  :tures  do  vou  want  to  use  ACTFIXNUM 

REN 

RETURN 

REM 

REM 

REM  »****•»♦**■»****♦***  SCREEN  4  *♦********♦+*****♦♦****<►♦*■***♦**+♦♦♦**■**♦* 

REM 

REM 

CLS 

PRINT  TAB‘29)  "FINAL  DESIGN  CALCULATICNS" 

PRINT 

PRINT  ”  Building  #  BLDGS: 

PRINT  TABOO-  'p'ociii  4  *:  ROOM!: 

-SINT  *A5.,0:  "  I  "grjt ;  ;r. ;  ITERATE 


PRINT  ”  Building  * 
PRINT  TABOO-  'P'OGffl  4  ': 

-SINT  'A5-.,0:  " I  "grjt ;  ;r. ; 


PRINT  'AB(qv 
PRINT 


-OOMUSEi; 

?a:  FClEVEl 


PRINT  ”  Fixture  Mate:  ”:  FIXTMAKEi; 
PRINT  TAB (36)  "Model  4  FIXTMODEL*; 
PRINT  TAB >59)  LQUANT :  ”  tube" 


POINT  : PRINT 
FAINT  " 


PRINT  TAB (45)  "Floor  Cavity  Factor  = 
PRINT  "  cDD  =  US IN 
PRINT  TAB-145)  "Final  CU  Value  = 

PRINT  »  RSD-D  =  USINI 
PRINT  "  Total  LLF  =  USIM 


USING  "4.4##";  LLD: 


"Floor  Cavity  Factor  =  ":  USING  ,,#.4f#,‘;  KQEF 

cDD  =  “i  USING  "4, 44#";  LDD: 

"Final  CU  Value  =  USING  "4.###":  FINALCU 

RSDD  =  USING  ”M44“;  RSDD 


PRINT  "  RSDD  =  USING  "#.#44";  RSDD 

PRINT  "  Total  LLF  =  USING  "4.444":  LLP; 

PRINT  TAB i 45)  "S/MH  Ratio  =  STMHRAT 

PRINT  TAB f 45>  "Spacing  Criteria  (tti:  USING  "4##.#";  SFCCRIT 

PRINT 

PRINT  "  Initial  FC  Level:  *;  ACTFCINIT; 

PRINT  TAB (45)  "Future  4  Required:  USING  "4##. 44":  NUMFIX 

PRINT  "  Maintained  FC  Level:  ACTFCMAIN: 

PRINT  TAB < 45)  "Future  #  Used:  ACTFIXNUM 

PRINT  : PRINT 


PRINT  "  ENTER:" 

PRINT  "  >'1>  To  do  another 

PRINT  "  (2)  To  go  to  Menu 

PRINT  "  O-i  To  get  a  hard 

PRINT  " 

INPUT  B 
REM 

IF  6=1  THEN  ITERATE  =  ITERATE  *  1 


To  do  another  iteration  ot  this  room" 

To  go  to  Menu  --  B.  clearing  all  variables” 

To  get  a  hardcopy,  and  return  to  this  screen' 


*  4  c  4  r  -i  r  i  r  4  r  i  r  4  c- i  c  j  r  j  c  4  r  *  r 


(.1 


RtTlJF:N 
13305  REM 
23310  REM 

241’ hi  REM  cFF-CTI'vE  REFLECTANCE  ♦4hhhhh4*++*#+4H4ihhhhhh4**++4i4*'**+4 

24105  REM 

24110  REM 

24115  D=1 

24120  REM 

24125  BWALL  =  WALLREF 
24130  IF  D=1  THEN  BBASE  =  CEILREF 
24135  IF  D=1  THEN  RRAT  =  TCAVRAT 
24140  REM 

24145  IF  D=2  THEN  BBASE  =  FL00REF 
IF  D=2  THEN  RRAT  =  -CAVRAT 
REM 


-1.1  i  cr, 

* 1  jU 


4 1  aO 
1165 


REM 


’41 70 

IF  BBASE 

35 

THEN 

4175 

GOTO  24270 

4130 

.F  BBAoE  / 

THEN 

4185  GOTO  24270 

41R0 

IF  BBASE  ; 

65 

THEN 

4195 

GOTO 

4200 

IF  BBASE  ; 

55 

THEN 

4205 

GOTO  24270 

4210 

IF  BBASE 

45 

THEN 

4215 

GOTO  24270 

4220 

IF  BBASE  > 

•7C 

jJ 

THEN 

4225 

GOTO  24270 

4230 

IF  BBASE 

25 

THEN 

4235 

GOTO  2i270 

4240 

IF  BBASE 

15 

THEN 

*245 

GOTO  ■42~f> 

"I", 

"I", 


24250 


Ic  BBASE 
GOTO  2^2' 
OPEN 


41. 


242*5 

REM 

24270 

FOR  A=i  TO 

10 

24275 

FOR  B=1  TO 

10 

24280 

INPUT  #1. 

EFF lA,  B) 

24235 

next  b 

24290 

r'JEXT  A 

-t2'7  j 

CLOSE  41 

24200 

-  1  ”•  C 

REM 

243i-J| 

IF  BBASE  ; 

5  THEN 

=  10 

24315 

IF  BBASE 

15 

THEN 

c=2«: 

24320 

IF  BBASE 

«.5 

THEN 

C=30 

24325 

IF  BBASE  : 

■’C 

-'J 

THEN 

C =40 

24330 

IF  BBASE 

45 

THEN 

C=5C 

24335 

IF  BBASE 

cc 

JJ 

THEN  C=6«: 

24340 

IF  BBASE  ; 

65 

THEN 

C=70 

24345 

IF  BBASE 

7f 

•’  J 

THEN 

c=8<: 

24350 

IF  BBASE 

35 

THEN 

C=90 

24355 

REM 

243o0 

A- 10 

243a5 

IF  BWALL 

c 

J 

rH£N 

4=9 

24370 

IF  BWALL 

15 

THEN 

A=S 

24375 

IF  BWALL 

*ie 
L.  J 

THEN 

A=7 

S-I-SO’ 

IF  BWi-iL 

T 

-uE-j 

24385 

IF  BWAlL 

45 

THEN 

A=5 

24390 

IF  BWALL 

CC 

THEN 

A=4 

1 T " 


T1 


“I 


rNEN  jF'EN 
A:  EFR'REFO 


41. 
#1, 
41. 
41. 
#1. 
#1, 
41. 
"I".  41. 

: ■ .  4i. 

,£FF" 


T\ 


"A:EFFREFR.EFF“  ELSE  24130 
'A:EFFREF3.EFF”  ELSE  24190 
"AiEFFREF'.EFF"  ELSE  24200 
"A:EFFREFa.EFF"  ELSE  24210 
"A:EFFREF5.EFF"  ELSE  24220 
■' A:  EFFREF4 .  EFF rl  ELSE  24230 
"A: EFFREF3. EFF"  ELSE 
"A:EFFREF2.EFR" 


24240 
ELSE  2425*' 


A:EFRPEF..EFC"  ELSE  ZKii 


24405  IF  PWAll  >  35  THEN  ft=l 

24410  FEN 

24415  REN 

24420  ARAT  =  PRAT 

24425  IF  APAT  '  RRAT  THEN  BRAT=ARAT-1  ELSE  BRAT=ARAT+1 

24430  IF  ARAT  >  BRAT  THEN  CRAT=ARAT  ELSE  24440 

24435  ARAT  =  BRAT  : BRAT  =  CRAT 

24440  IF  ARAT=0  THEN  EFPRAT 1=C  ELSE  24455 

24445  GOTO  24460 

24450  REM 

24455  EFFFAT1  =  EFF (A. ARAT; 

24460  EFFRAT2  =  EFF (A, BRAT) 

24465  REM 

244 ■'0  EFFRAT3  =  EFFRAT 1  -  ( (EFFRAT 1 -EFFRAT2  J  *  '.R'RAT-ARAT)  i 
24475  REM 
24430  REM 

24435  IF  D=1  THEN  EFFCREF  =  EFFRAT3 

24490  IF  D=2  THEN  EFFFREF  =  EFFRAT3 

24495  IF  D=1  THEN  D=2  ELSE  24510 

24500  GOTO  24125 

24505  REM 

24510  RETURN 

24515  REM 

2452'j  IF  3=1  ThEN  EFFCREF  =  CEILREF 

24525  IF  D=2  THEN  EFFFREF  =  FLOOREF 

24530  IF  D=1  THEN  D=2  ELSE  24545 

24535  GOTO  24125 

24540  REM 

24545  RETURN 

24550  REM 

24555  REM 

251  On  REM  ♦*♦***♦♦*♦******»*  1DD)  LUMINAIRE  DIRT  DEF'.  ♦«*****♦*»**♦♦<**<►+♦*♦*♦♦ 
25105  REM 
25110  REM 

25115  IF  MAINCATJ="!“  THEN  LLB  =  .o9 

:?  maincatm-u"  'hen  ...s  =  ,s: 

25125  IF  MAiNCAT$="lH"  THEN  LLB  =  .7 
25130  IF  MAINC6T$=" IV"  THEN  LLB  =  .'I 
25135  IF  MAINCAT$="V"  THEN  LLB  =  .53 
2514Ci  IF  MAINCAT$="VI"  THEN  LLB  =  .33 
25145  REM 

25150  IF  MAINCAT $=" I "  THEN  AA1  =  1 
25155  IF  MAINCAT$="H"  THEN  AAi  =  2 
25160  IF  MAINCATt="!II"  THEN  AAl  =  3 
25165  IF  MAINCAT$=Tv/“  THEN  AAl  =  4 
25170  If  MAINCAT*-’7"  THEN  AAl  =  5 
25175  IF  MAINCAT$='",T "  THEN  AAl  =  6 
25180  REM 

25135  IF  DlRTCD$="Very  Clean"  THEN  AA2  =  1 
25190  IF  DIRTCD$="Clean"  THEN  AA2  =  2 
25195  IF  DIRTCB$='' Medium 11  THEN  AA2  =  3 
25200  IF  DIRTCD$="Dirty"  THEN  AA2  =  4 
25205  IF  DIRTCD$="Very  Dirty"  THEN  AA2  =  5 
25210  REM 

25215  lLA  =  LA (AAl , AA2 ) 

25220  REM 

25225  T  =  CLCYCLE  /  12 
25230  REM 

25235  LDD  =  EXP  (■ -LLA# ‘V LLB) ) 

25240  REM 
25245  REM 

25250  REM  **♦*»*♦****♦***♦♦*  (RSDD)  ROOM  SURFACE  DIRT  DEP. 

25255  REM 
25260  REM 


25265  IF  DIF.7CCt=“7erv  Clean"  THEN  FDD  =  •  I-iEXP<-.073»(T  .53  .  '♦10 


jjjjj f*m  rrrrrrr VjVJ/VVSMws v Wj 


w  ct  bwi  u  ugw  iw  w  r*  w  y  w  4f  *  v  *.»  *  <  n1 
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25270 

25275 

25280 

'-cnnc 
-  ji.nO 

25290 
25295 
25300 
25305 
25310 
25315 
25320 
25325 
25  jJ) 
25335 
25340 
25345 

-ic-e.-i 
iJ.'JV 
-r?e  c 
.jjjj 


1- (EXP 1  — 

i-ie:«p- 

1-(E<P'.- 
1- ■ E- P ■ - 

128* (T 
19*  i  T 
249*«T 
321*'T 

310 

25375 

25330 

25335 

25390 

-ic-?nc 
*.  J  J  7  J 


IF  DIRTCD*="Clean"  THEN  FDD  = 

IF  DIRTCD5="Mediu«"  THEN  FDD  = 

IF  PIRTCD$=“Dli*tv"  THEN  *DD  = 

IF  DIRTCD*=",erv  Dir:/’  'HEN  FDD  = 

REM 

IF  RCAVRAT  1  THEN  REDD  =  1  ELSE  25310 
SOTO  25365 
REM 

IF  FDD  >  4  THEN  25320 
GOTO  25340 

RSDl  =  RSDFfDISTTYF'.l) 

RSD2  =  ftSDF (DISTTYP, 2) 

GOTO  25355 
REM 

RSDl  =  l-(  t  (1-RSDF  (DISTTYP.  1)  )/'4)*PDD> 

RSD2  =  !-(( (1-RSDF (DI3TTYP,2))/4)*PDD) 

REM 

FSDD  =  RSD 1 - ( ( « RSD 1 -RSD2  »/?'*<  RCAVRAT - 1 ; • 

REM 

REM 

REM  ******************  (LLD)  LAMP  LUMEN  DEF. 

REM 

REM 

IF  MAINTLUM  =  0  THEN  LLD  =  .35  ELSE  25400 

GOTO  25405 

REM 


.53) 1 i ) *lo 
53:  i  *  * *10 
.53)  •■-♦10 
.53) 1 1 >*10 


25400  LLD  =  MAINTLUM  /  INITLUM 
25405  REM 
25410  REM 

25415  REM  **+*+**•***♦♦♦*+***  iLLF)  LIGHT  LOSS  FACTOR 
25420  REM 
25425  REM 

25430  LLF  =  LLD  *  RSDD  *  LDD 

25435  REM 

25440  RETURN 

25445  -EM 

25450  REM 

2slOO  REM  ****«+♦♦*****♦**♦*  CHARTED  CU  VALUES  ♦*****♦♦*♦**♦♦****♦+♦****♦**♦**♦♦ 

26105  REM 

261 10  REM 

26115  El  =  0 

26120  ACREF  =  EFFCREF 

26125  AWREF  =  WALLREF 

26130  AFREF  =  EFFFREF 

26135  REM 

2ol40  ARATIO  =  RCAVRAT 

26145  IF  ARATIO  >  RCAVRAT  THEN  BfiATIO  =  ARATIO- 1  ELSE  BRAT 10  =  ARATIO+1 
26150  IF  ARATIO  ■  BfiATIO  THEN  CRATIO  =  ARATIO  ELSE  26165 
26155  ARATIO  =  BRAT 10  : BRAT 10  =  CRATIO 
26160  IF  ARATIO  =  0  THEN  El  =  ! 

261&5  IF  ARATIO  =  0  THEN  ARATIO  =  1 
26170  IF  BRATIO  =  11  THEN  El  =  1 
26175  IF  BRATIO  =  1!  THEN  BRATIO  =  10 
26180  REM 
26185  REM 

26190  IF  STTAB  =  2  THEN  27845 
^6195  CLS 

26200  PRINT  : PRINT  : PRINT  : PRINT  : PRINT 
26205  PRINT  TAB (34)  "READING  DATA" 

26210  REM 

26215  IF  S0L=1  THEN  26245 

26220  IF  30L=2  THEN  26300 

26225  IF  SOL-3  THEN  26440 

26230  IF  SOL =4  THEN  26495 

26235  IF  SOL =5  THEN  26550 


REM 

IF  FFC=1  THEN  OPEN  "I" 
IF  FFC=2  THEN  OPEN  T 
IF  FFC=3  THEN  OPEN  "I ' 
IF  FFC=4  THEN  OPEN  'T' 
IF  FFC=5  THEN  OPEN  "5" 
IF  FFC=6  THEN  OPEN  “I" 
IF  FCC=T  THEN  OPEN  "I" 


#1.  :'A:  INCU1.DAT1' 
*1.  A: INCU2.DAT" 
41.  "A: INCU3.DAT" 
#1.  "A:  INQJ4.DAT" 
41.  “A: INCU5.DAT" 
#1.  "A: INCU6.DAT" 
41,  "A: INCU7.DAT" 


IF  FFC=8  THEN  OPEN  "I".  #1.  "A: INCU8.DAT" 
IF  FFC=9  THEN  OPEN  “I",  41.  "A: INCU9.DAT" 
IF  FFC=10  THEN  OPEN  “I",  #1,  "A: INCU10.DAT 


GOTO  26055 

IF  FFC=1  THEN  OPEN  "I" 
IF  FFC=2  THEN  OPEN  "I" 
IF  FFC=3  THEN  OPEN  ”1“ 
IF  FFC=4  THEN  OPEN  "I" 
IF  FFC=5  THEN  OPEN  "I” 
IF  FFC=6  THEN  OPEN  "P 
IF  FFC=7  THEN  OPEN  "I" 
IF  FFC=S  THEN  OPEN  "I" 


,  #1,  "A: INCU10.DAT" 

#1,  “A:FLCU1.DAT" 
#1,  "A: FLCU2.DAT" 
#1,  ‘A: FLCU3.DAT" 
#1.  "A: FLCU4.DAT" 
41,  “A:FLCU5.DAT" 
#1,  "A: FLCU6. DAT" 
41,  ”A: FLCU7.DAT" 
#1,  “A: FLCU8.DAT" 


IF  FFC=9  THEN  OPEN  "I",  41,  "A: FLCU9.DAT" 

IF  FFC=10  THEN  OPEN  "P.  41,  “A: FLCU10.DAT" 
FEM 

FOP  D=1  '0  2 
FCR  0=1  TO  4 
FOP  3=1  TO  10 
INFUT41,  CU1  'B,C,D> 

NEXT  B 

(€XT  C 

NEXT  D 

FOR  D=1  TO  2 

FOR  2=1  TO  3 

FOR  B=1  TO  10 

INPUT41,  2U2«B,C,0) 

JE 'T  5 
(EXT  : 

NEXT  D 
CLOSE  41 
GOTO  26690 
REM 

IF  FFC=1  THEN  OPEN  "I",  41,  “A: MVCU1.DAT" 

IF  FFC=2  THEN  OPEN  "I",  41,  "A: MVCU2.DAT" 

IF  FFC=3  THEN  OFEN  “I”,  41,  "A: MVCU3.DAT” 

IF  FFC=4  THEN  OPEN  T',  41,  "A: rtVCU4.DAT" 

IF  FFC=5  THEN  OPEN  "I",  41,  “A: MVCU5- DAT 11 

IF  F'C=o  THEM  OFEN  “P,  41,  "A: MVCU6.DAT” 

IF  FFC=7  THEN  OPEN  T\  41,  "A: MVCU7.DAT 11 

IF  FFC=3  THEN  OPEN  "I",  41,  "AiMVCUS.DAT" 

i  IF  FFC=f  THEN  OPEN  “I",  41.  "A: MVCU9.DAT" 


IF  FFC=1  THEN  OPEN  “I",  41,  “A: MVCU1.DAT” 
IF  FFC=2  THEN  OPEN  "I",  41,  "A: MVCU2.DAT" 
IF  FFC=3  THEN  OFEN  “I”,  41,  "A: MVCU3.DAT” 
IF  FFC=4  THEN  OPEN  T'.  41,  ‘A: rtVCU4.DAT" 
IF  FFC=5  THEN  OPEN  "I",  41,  “A: MVCU5.DAT" 
IF  F'C=o  THEM  OFEN  "I",  41,  “A: MVCU6.DAT" 
IF  FFC=7  THEN  OPEN  “I“,  41,  "A:  MVCU7.DAT 11 
IF  FFC=3  THEN  OPEN  "I",  41,  "A:MVCU8.DAT" 
IF  FFC=o  THEN  OPEN  “P,  41.  "A: MVCU9.DAT" 
IF  FFC=10  THEN  OPEN  "P,  41,  "A:MVCU10.DAT 
GOTO  26o05 

IF  FFC=1  THEN  OPEN  "I",  41,  “AiMHCUl .DAT" 
IF  FFC=2  THEN  OPEN  "I",  41,  "A:MHCU2.DAT" 
IF  FFC=3  THEN  OPEN  "I",  41,  "A: MHCU3.DAT" 
IF  FFC=4  THEN  OPEN  “P,  41,  ''A:MHCU4.DAT" 
IF  FFC=5  THEN  OPEN  “P,  41,  “A: MHCU5.DAT" 
IF  FFC=6  THEN  OPEN  "I",  #1,  “A:MHCLI6.DAT" 
IF  FFC=7  THEN  OPEN  "P,  41,  "A: MHCU7.DAT" 
IF  FFC=8  THEN  OPEN  "P,  41,  "A: MHCU3.DAT" 
IF  FFC=9  THEN  OPEN  "1",  41,  "A: MHCU9.DAT" 
IF  FFC=10  THEN  OFEN  1 1",  41.  "A: MHCU10.DAT 
GOTO  26605 

IF  FFC=1  THEN  OPEN  "I”,  41,  "AiHPCUl.DAT" 
IF  FFC=2  THEN  OPEN  "I”,  41,  "A: HPCU2 , DAT” 
IF  FFC=3  *h£N  OPEN  "I",  41,  'h:  HFCU3.DAT ' 


niunvuMum 

,  41.  "A: (1HCU10.DAT 

41,  "A:HPCU1 .DAT" 
#1,  "A:HPCU2.DAT" 
41,  h: HFCU3.DAT ' 


IF  FFC=4  THEN  OPEN  'T 

IF  FFC=5  THEN  OPEN  !T 

IF  FFC=<i  THEN  OF'EN 

If  FFC=7  THEN  OPEN  'T 

IF  FFC=3  THEN  OPEN  T 


#1,  "A:HPCU4.DAT 
41,  ”A:HPCU5.DAT" 
#1,  "A:HPCU6.DAT" 
#1,  “A: HPCU7.DAT" 
41,  "A: HPCU3. DAT" 


IF  FFC=9  THEN  OPEN  "I",  #1,  "A: HPCU9.DAT11 
IF  FFC=10  THEN  OPEN  ’’1“,  41,  “A:HPCU10.DAT 
REM 

FOR  C=l  TO  4 
FOR  B=1  TO  10 
INPUT41,  CU3tB,C, 1) 

NETT  B 
NEXT  C 

FOR  D=1  TO  2 
FOR  C=1  TO  3 
FOR  3=1  TO  10 
INPUT41,  CU4(B,C,D) 

NEXT  B 
NEXT  C 
NEXT  0 
REM 

CLOSE  41 
GOTO  27130 
REM 
REM 

IF  ACREF  <  30  THEN  26705 
D1  =1  :D2  =  0 
GOTO  26790 

IF  ACREF  <=  70  THEN  26720 
D1  =  1  :D2  =  2 
GOTO  26790 

IF  ACREF  <  70  THEN  26735 
D1  =2  :D2  =  0 
GOTO  26790 

IF  ACREF  =  50  THEN  26750 
01  =  2  :02  -  2 
SOTO  26790 

IF  ACREF  ■:  50  THEN  26765 
i  D1  =  3  :D2  =  0 
i  GOTO  26790 

,  IF  ACREF  (=  30  THEN  26780 
i  D1  =  3  :D2  =  4 
i  GOTO  26790 
i  31  =  4  :D2  =  0 
i  REM 

!  IF  ACREF  1  70  AND  AWREF  >  50  THEN  AWREF  = 
i  REM 

i  IF  AWREF  <  70  THEN  26815 
1  Cl  =  1  :C2  =  0 
'  GOTO  26900 

!  IF  AWREF  <=  50  THEN  26830 
i  Cl  =  1  :C2  =  2 
i  GOTO  26900 

i  IF  AWREF  <  50  THEN  26845 
i  Cl  =  2  :C2  =  0 
>  GOTO  26900 

i  IF  AWREF  <=  30  THEN  26860 
»  Cl  =  2  :C2  =  3 
i  SOTO  26900 

)  IF  AWREF  <  30  THEN  26875 

r  r*  ..  ■»  =  i) 

t  GOTO  269(*f 

i  IF  AWR'EF  <=  10  THEN  26890 
t  Cl  =  3  :C2  =  4 
i  GOTO  «.S9uO 


26895 

REM 

26900 

IF  STTA8  =  2  THEN  2'890 

26905 

REM 

26910 

IF  D1 

;  2  THEN  27040 

26915 

AOJiD 

=  CUKARATI0.C1.DK 

26920 

ECU  U' 

=  CU1 (BRATI0.C1.D1) 

26925 

IF  C2 

=  0  THEN  26945 

26930 

ACU ( 2 ) 

=  CU1 (AftATI0.C2.Dl) 

26935 

BCU  <2> 

=  CU1 (BfATI0.C2.Di) 

26940 

REM 

26945 

IF  02 

=  0  THEN  27505 

26950 

IF  D2 

>  2  THEN  26995 

26955 

ACU (3) 

=  CUKARATIO  C1.D2) 

26960 

BCU (3) 

=  CU1 (BRATIO. Cl , D2) 

26965 

IF  C2 

=  0  THEN  26985 

26970 

ACU (4) 

=  CUKARATIO.  C2.D2) 

26975 

BCU '4) 

=  CU1  (BF:ATI0,C2.D2) 

?A980 

REM 

2t°85 

GOTO  27115 

26990 

REM 

26995 

D3  =  1 

:C3  =  Cl-1 

■7000 

ACU (3) 

=  CU2(ARAT10,C3.D3> 

27005 

BCU  (3o 

=  CU21 BRATIO. C3.D3) 

27010 

if  c: 

=  0  THEN  27030  ELSE  C4 

=  C2- 

■1 

27015 

ACU (4) 

=  CU2(ARATI0,C4,D3) 

27020 

BCU(4) 

=  CU2 (BRATIO,  C4,  D3> 

27025 

REM 

27030 

GOTO  2 

7495 

27035 

REM 

2^040 

D3  =  Dl-2  :C3  =  Cl-1 

27045 

AC'J(l) 

=  CU2iARATI0,C3,D3j 

27050 

BCU  ( 1  > 

=  CU2(BRATI0,C3,D3i 

27055 

if  c: 

=  0  THEN  27075  ELSE  C4 

=  C2- 

■1 

29060 

AHJ  '2' 

=  CU2'ARATI0,C4.D3) 

27065 

BCU  (2: 

~  CUT 'BRATIO. u4. j. 

29070 

REM 

27075 

IF  02 

=  0  THEN  27115  ELSE  D4 

=  02- 

27080 

ACU (3) 

=  CU2(ARATI0.C3,D4) 

27085 

BCU (3) 

=  CU2(BRATI0,C3,D4) 

27090 

IF  C2 

=  0  THEN  27115 

27095 

ACU (4) 

=  CU2 i ARAT 1 0 ,  C4 ,  D4 ) 

27100 

BCUI4) 

=  CU2(BRATI0,C4,D4) 

27105 

REM 

27110 

REM 

27115 

GOTO  2 

7495 

27120 

REM 

27125 

REM 

271.70 

IF  ACREF  <  80  THEN  27145 

2' 135 

D1  =  1 

:D2  =  0 

27140 

GOTO  27200 

27145 

IF  ACREF  50  THEN  27160 

27150 

D1  =  1 

:D2  =  2 

27155 

GOTO  2 

7200 

27160 

IF  ACREF  <  50  THEN  27175 

27165 

D1  =  2 

:D2  =  0 

27170 

GOTO  2 

7200 

27175 

IF  ACREF  <=  10  THEN  27190 

27180 

D1  =  2 

:D2  =  3 

27185 

GOTO  2 

7200 

27190 

01  -  3 

:D2  =  0 

27195 

REM 

27200 

IF  ACREF  <  80  AND  6WREF  >  50 

THEN 

AWREF 

27205 

REM 

27210 

IF  hWREF  ■,  70  THEN  27225 

-/ijj  Li  =  i  :Li  -  i j 

2'220  GOTO  27310 

27225  IF  AWREF  <=  50  THEN  27240 

27270  Cl  =  1  :C2  =  2 

27*235  :30T0  27310 

27240  IF  AWREF  50  THEN  27255 

27245  Cl  =  2  :C2  =  0 

27250  GOTO  27310 

27255  IF  AWREF  <=  30  THEN  27270 

27260  Cl  =  2  :C2  =  3 

27265  GOTO  27310 

27270  IF  AWREF  <  30  THEN  27285 

27275  Cl  =  7  ;C2  =  0 

27280  GOTO  27310 

27285  IF  AWREF  <=  10  THEN  27300 

27290  Cl  =  3  :C2  =  4 

272%  GOTO  27310 

27300  Cl  =  4  :C2  =  0 

27305  REM 

2731 >  IF  5TTAB  =  2  THEN  27890 
27315  REM 

27320  IF  D1  '  1  THEN  27405 
27325  ACU(U  =  CU3(ARATIQ,C1.D1' 

27330  BCU f  1 1  =  CUC'BRATIO.Cl.Dl) 

27335  IF  C2  =  0  THEN  27355 
27340  ACLK2)  =  CU3(ARATI0,C2,D1) 

27345  BCU (2)  =  CU3 (BRATIO, C2, DI ) 

27350  REM 

2'355  IF  D2  =  0  THEN  27495 
27360  03  -  1  :C3  =  Cl-1 
27365  ACUI3)  =  CU4(ARATI0,C3,D3) 

27370  BCU *3)  =  CU4 (BRATIO. C3,D3'» 

21-375  IF  C2  =  0  THEN  27395  ELSE  C4  =  C2-1 
27330  ACU • 4 '  =  CU4(ARATI0,C4,D3) 

2-385  ECU' 4 i  =  CU4 ! BRATIO, C4, 23 i 
:-3co  re;i 
273^5  GOTO  27495 
2"  400  REM 

27405  D3  =  Dl-1  :C3  =  Cl-1 
27410  ACU < 1 )  =  CU4(ARATI0,C3,B3) 

27415  BCU ( 1 )  =  CU4 (BRATIO, C3, D3) 

27420  IF  C2  =  0  THEN  27440  ELSE  C4  =  C2-1 
27425  ACU' 2)  =  CU4(ARATIQ,C4,D3) 

27430  BCU'.:;1  =  CU4 (BRATIO, C4, 03) 

27435  REM 

27440  IF  D2  =  0  THEN  27505  ELSE  04  =  02-1 
27445  ACU (3)  =  CU4 (ARATIO, C3, 04) 

27450  BCU (3)  =  CU4 (BRATIO. C3,D4) 

27455  IF  C2  =  0  THEN  27505 
27460  ACU (4)  =  CU4(ARATI0,C4,04' 

27465  BCU (4)  =  CU4 (BRAT  10, C4, 04) 

27470  REM 

27475  IF  Dl  =  3  THEN  01=5 

27480  IF  Dl  =  2  THEN  Dl  =  3 

27485  IF  D2  =  3  THEN  02  =  5 

27490  IF  02  =  2  THEN  02  =  3 

27494  REM 

27495  IF  ACU ( 1 ) =0  THEN  ACU ( I ) =ACU (2) 

27496  IF  BCU ( 1 ) =0  THEN  BCU(1)=8CU(2) 

27497  IF  ACU (2) =0  THEN  ACU (2) =ACU ( 1 ) 

27498  IF  BCU!2>=0  THEN  BCU<2!=8CU(1> 

27490  ACU(3)=0  THEN  ACU (3)  =ACU (4) 

27500  IF  BCU (35 =0  THEN  BCU <3) =BCU (4) 

27501  IF  ACU ( 4 >  =0  THEN  ACU (4) =ACU (T) 

27502  IF  BCU  1 4 >  =0  THEN  6CUt4)=6CU'.3) 


27503  REM 

27505  IF  C2  =  0  THEN  27555 

27510  ACUA  =  ACU <  1 1  -  i  <  ( ACU 1 1 ;  -ACU  ( 2 / ! PUP  'Cl)  -PWR  ( C2 ! ) )  *  ( PWR  (Cl)  - AWREF '< ) 

27515  BCUA  =  3CUUW  ( 'BCU(15  -BCUT2)  >  ■’  iPWRiCl)-PWR(C2t  >  i  *  f  PWR  (Cl ) -AWREFt ; 

2‘,c'20  REM 

27525  IF  D2  =  0  THEN  27595 

27530  ACUB  *  ACL!(3) -<  i  <ACU  (3) -ACU  (4) )  /  (PWR<C1 )  -PWf:(C2) ) )  *  (PWR  ^C1 ) -AWREF 1  > 

27535  3CUB  =  BCU<3)-( { TBCU <3) -BCl! <4) >/ IPWR <C1 ) -PWR(C2> ) ) *(PWR (Cl ) -AWREF) ) 

27540  REM 
27545  GOTO  27575 
27550  REM 

27555  IF  D2  =  0  THEN  27615 
27560  ACUA  =  ACU(l)  :  BCUA  =  BCUU) 

27565  AC'JB  =  ACU (3)  :BCUB  =  BCU(3) 

27570  FEM 

27575  ACUC  =  ACUA- ( ( • ACUA- ACUB ) / ( PCR (Dll -PCR ( D2 > ) ) * i FOR i D 1 ) -ACREF ■ ) 

27580  BCUC  =  BCUA-<  <  f BCUA-BCliB > / ( PCR ( D i ) -PCR < D2 ) )  )* (PCR (D1 J -ACREF -  > 

27535  REM 

2^5°0  GOTO  2*625 

2*3C5  ACUC  =  ACUA  :BCUC  =  BCUA 

27600  GOTO  27625 

2*605  REM 

27610  REM 

2*615  ACUC  =  sACU !  1  >  : BCUC  =  BCUd’ 

27620  REM 

27625  CCUC  =  ACUC- •  ACUC-BCUC  uPCAVRAT-ARATIO) ; 

27626  IF  CCUC=0  THEN  27628 

27627  GOTO  2*640 

27628  CL 3  : PRINT  :PRINT  : PRINT  :PRINT  :PRINT  : PRINT  TAB  1 1(0: 

27629  F’RINT  "Not  enough  CU  values  are  available,  please  update  fixture  tile" 

27630  PRINT  TAB (10  "with  additional  CU  values  Ter  a  ceiling  reflectance  of:  "j 
2*631  PRINT  PCP(Ol); 

27632  PRINT  TAB(10>  ‘and  a  wall  reflectance  of:  PWR  •Cl.’: 

2*633  -PINT  : PRINT  j PRINT  TAB • 10) : 

27fc34  INPUT  '  cro«j  -s-ET'JPN-  *o  return  *o  neru.  84 

2*633  GOTO  3 1 
2*o36  REM 
2* -3*  REM 

27640  REM  ******************  FLOOR  COEFFICIENT 
27645  REM 
27650  REM 

27655  IF  AFSEF  =  20  THEN  f'OEF  =  1  ELSE  27670 
2*660  GOTO  27900 
2*oo5  REM 

27670  IF  PCR (D l'1  =80  THEN  OPEN  “I",  11,  "A:FMULFAC8.FLR" 

27675  IF  PCR (D1 )  =70  THEN  OPEN  "I",  »1,  ',A:FMUIFAC'.FL=" 

27680  IF  PCR  (Dll  =50  THEN  OPEN  "I",  #1,  “A:FMULFAC5.FLR" 

27635  IF  PCR f D1 ) =30  THEN  OPEN  “I",  *1,  "A:FMUIFAC3.FLR" 

27690  IF  PCR  (Dll  =10  THEN  OPEN  “I",  II,  “A.-FMULFACl.FLR” 

27695  REM 

27700  FOR  A=1  TO  3 
*7705  FOR  B=1  TQ  20 


INPUT  41,  MFACTOR ( A, B) 

NEXT  B 
NEXT  A 
CLOSE! 1 
REM 

C5  =  Cl 

IF  C5=4  THEN  C5=3 
REM 

IF  AFPEF  =  30  THEN  rOEF  =  "FACTOR (C5. BP AT  ICO  ELSE  2**62 

GOTO  27800 

REM 

IF  AFREF  20  THEN  27785 

t.OEF  =  MFACTuP',C5,BRAT;0i-i.:MFACTCR’.C5,2tF.AT:.:>-ii  ■ 


vVvtvA  \  mjf 


GOTO  27800 
REM 

KOEF  =  l-i  ■'  <  1  -MFACTOR  •  C5 ,  BRAT  1 0+ 1 0 .» 1  /20  >  ♦  <  ZC*— AFREF ) ) 

REM 

REM 

REM  ******************  FINAL  CU  VALUE 

REM 

REM 

FCU  =  CCUC  ♦  KOEF 

FINALCU  =  FCU  /  100 

REM 

RETURN 

REM 

REM 

REM  ♦***♦*♦***+*♦***♦*  N0N-3T0RED  CU  TABLES 

REM 

REM 

IF  SOL  =  1  THEN  26690 
IF  SOL  =  2  THEN  2669*1) 

IF  3GL  =  3  THEN  C'TO 
IF  SOL  =  4  THEN  2.  .30 
IF  SOL  =  5  THEN  27130 
REM 

IF  SOL  =  1  OR  SOL  =  2  'HEN  2~«Z0 

IF  D1  =  3  THEN  D1  =  5 

IF  D1  =  2  THEN  D1  =  3 

IF  D2  =  3  THEN  D2  =  5 

IF  D2  =  2  THEN  D2  =  3 

REM 

CLS 

PRINT  TAB'S!  “Critical"; 

PRINT  TAB (20)  "PFR";  TAB*;6>  TAB-30*  PFRC) 

PRINT  TAB !5)  *CU“; 

PRINT  TAB  (20 1  "PCR":  TAB  *  26 :  TAB  CO?  PCR'Dl-s 

TF  02  0  THEN  PRINT  TABiSS’-  PCR*D2': 

PRINT 

PRINT  TAB i5)  “Values": 

PRINT  TAB 1 20'  “PUR":  TAB  1 26)  tab < 30'  FWRTCi - ; 

IF  C2  /  0  THEN  PRINT  TAB (40 1  PWR(C2); 

IF  D2  >  0  THEN  PRINT  TAB(SS)  PWR(Cl):  ELSE  27980 

IF  C2  >  0  THEN  PRINT  TAB(65)  PWR(C2>; 

PRINT 

PRINT  TAB (20)  “RCR";  TAB '.26'-  "!“ 

PRINT  TAB 1 20)  " - i - 

PRINT  TAB'26)  ”!" 

AA=1 

PRINT  TAB < 20 )  ARATIO;  TAB ( 26 )  TAB(29!  *(“;  AA;  “) 

AA  z  AA  +  1 

IF  C2  >  0  THEN  PRINT  TAB <39 >  "i";  AA;  T;  ELSE  28025 
AA  =  AA  1 

IF  D2  ;  0  THEN  PRINT  TAB <54 )  *V;  AA;  ELSE  23045 
AA  =  AA  ♦  l 

IF  C2  •  0  THEN  PRINT  TAB(64)  "(";  AA;  ELSE  28045 
AA  =  AA  M 
PRINT  “■ 

IF  £1= I  THEN  28100 
PRINT  TAB (26)  “I" 


TAB(29!  AA;  ” ' ” ; 


ELSE  2802 


PRINT  TAB (20'  BRATIO;  TAB(26)  “l" 
AA  =  AA  ♦  I 

IF  C2  >  0  THEN  PRINT  TAB (39)  "(" 
AA  =  AA  *  1 

IF  02  >  0  THEN  PRINT  TAB (54)  "(" 
AA  =  AA  +  1 

IF  C2  0  THEN  FRINT  TAB («j4 ;  V 
PRINT 


;  TAB (29)  '(";  AA; 
AA;  ELSE  28080 


ELSE  28095 


23100  PRINT  :  PRINT  :  PR  I  NT  TAB(5/: 

18105  PRINT  "Please  enter  the  followinq  values  troo  the  fixture  s  CU  chart" 

29106  PRINT  TAB (5' ; 

23! IT  PRINT  "to  fill  in  the  chart  above.  It  value  is  not  aiven  on  Fixture  s" 
28111  PRINT  7A8<5) ; 

23112  PRINT  “CU  chart,  enter  0  ,  or  20  manual  extrapolation  ana  enter  value." 
28115  PRINT  :PRINT 

?gpQ  ggsj 

28125  PRINT  TAB <30)  BB;  : INPUT  ACU<1> 

28130  IF  C2  0  THEN  BBSBB+1  ELSE  23140 
28135  PRINT  TAB130)  BB:  “)  “:  : INPUT  ACU(2) 

28140  IF  D2  ■'  0  THEN  BB=BB+1  ELSE  23165 
28145  PRINT  TAB (30)  “<“;  BB;  ■)  ":  .-INPUT  ACU13) 

28150  IF  C2  ;  0  THEN  BB=BB+1  ELSE  28165 
28155  PRINT  TAB<30»  BB;  ,M  “;  : INPUT  ACU<4> 

28160  IF  El=l  THEN  28210 

23 ro  PRINT  TAB 1 30)  "(“;  BB;  ”)  : INPUT  BCU(l) 

28125  IF  C2  >  0  THEN  BB=BB+1  ELSE  28135 
28180  PRINT  TAB (30)  'V':  BB;  "!  “;  : INPUT  BCU(2) 

28185  IF  D2  ;  0  THEN  BB=8B+1  ELSE  28210 
25190  PRINT  TAB (30)  " < “ ;  BB;  “)  ";  : INPUT  BCU(3) 

23195  IF  C2  >  0  THEN  BB=BB+1  ELSE  28210 
23200  PRINT  TAB (30)  V:  BB:  •)  ":  : INPUT  BCU<4> 

23205  REM 

28210  ELS  .-PRINT  .-PRINT 

28215  PRINT  TAB .20)  "Please  check:" 

28220  PRINT  : PRINT  : PRINT 

28225  PRINT  TAB 1 15)  "Critical  CU  Values  from  the  Fixture  Chart" 

29230  PRINT 

23235  PRINT  TABI20)  "PFR";  TAB(26)  ‘!“;  TAB (30)  PFR ( 2 ) 

28240  PRINT  TAB (20)  “PCR";  TAB<26>  TAB (30)  PCRtDl;; 

28245  IF  D2  >  0  THEN  PRINT  TAB '55)  PCR(D2); 

29250  PRINT  "" 

29255  PRINT  TAB ( 20'  "PHR":  TAB < 26)  TAB  CO)  PNRiCD: 

23260  IF  C2  v  THEN  :F'INf  TAB « 40 :  PWR-.C25 : 

23265  IF  02  0  THEN  PRINT  TAB(55'  PWR(Cl>:  ELSE  29275 

23270  IF  C2  ■  0  THEN  PRINT  TA8I45'  PWR<C2) ; 

28275  PRINT  "“ 

28280  PRINT  TAB <20 )  "RCR“;  TAB 26)  "I" 

28235  PRINT  TAB (20)  " - 1 - " 

28290  PRINT  TAB (26)  "I" 

18295  PRINT  TAB(19)  ARATIO;  TAE(26)  "I”:  TAB (30)  ACU(l); 

28300  IF  C2  0  THEN  PRINT  TAB(40»  ACUI2); 

28305  IF  D2  0  THEN  PRINT  TAB<55>  ACU-3) ;  ELSE  28315 

28310  IF  C2  '  0  THEN  PRINT  TAB(65)  ACU(4i; 

23315  PRINT 

23320  IF  El=l  THEN  28355 
25325  PRINT  TAB<26>  "C 

23330  PRINT  TAB (19)  BRATIO;  TAB(26)  TAB (30)  BCU(l); 

23335  IF  C2  !•  0  THEN  PRINT  TAB (40)  BCU(2); 

23340  IF  D2  )  0  THEN  PRINT  TAB (55)  BCU(3);  ELSE  28350 

28345  IF  C2  0  THEN  PRINT  TAB<65)  BCU(4)j 

28350  PRINT  "" 

28355  PRINT  :PRINT  : PRINT  :PRINT 

28360  INPUT  "  Is  everything  correct  (Y/N)  Bt 

28365  IF  Bt="N"  OR  Bt="n"  THEN  28375  ' 

28370  GOTO  27495 
28375  PRINT  :PRINT 

28380  INPUT  "  Please  re-enter  CU  values,  press  ‘RETURN)  when  ready  ",  Bt 
23385  GOTO  27920 

29100  REM  ♦**♦***♦**♦**♦«***  NUMBER  OF  FIX TIRES  ♦#♦*♦***♦♦♦*♦#*********♦♦♦*»**** 
29105  REM 
29110  REM 

29115  NUMFIX  =  ( FCLEVEL ♦RMFSREA) /(INI 7LUM*L5UANT <F I NALCU  *LLF ' 


29120  REM 
29125  RETURN 
2^130  FEM 
29135  REM 

~i'ilnO  REM  ******************  ACTUAL  FC  LEVEL  ♦♦■►**+*♦♦******+****+**♦*+*♦♦+♦♦♦■•■* 

30105  REM 
30110  REM 

30115  ACTFCMAIN  =  i ACTF I XNUM+F I NALCU*LLF  * 1 NITLUH*LQUANT ) / RMFAREA 
30120  REM 
30125  REM 

30130  ACTFCINIT  =  ACTFCMAIN/LLF 
30135  REM 
30140  REM 

30145  REM  ******************  SPACING  CRITERIA 
30150  REM 

30155  3PCCRIT  =  STMHRAT ♦ ■ FTFHGT-FTWSHGT ) 

30150  REM 
30165  RETURN 
30170  REM 
30175  F'EM 

401  TO  REM  ******************  ROOM  REFERENCE  DATA  ♦*♦***♦**********+*****♦*♦♦♦»♦ 

40105  REM 
40110  REM 

40115  CLS  : FEINT  :PRINT 

40120  INPUT  "  Please  enter  the  building  number:  ",  BLDG* 

40125  PRINT  : PRINT 

40130  INPUT  "  Please  enter  room  number:  ",  ROOM* 

40135  PRINT  : PRINT 

40140  PRINT  *  This  is  Iteration  ITERATE;  ”  tor  this  room"; 

40H5  INPUT  "  -  Correct  (Y/N*  B* 

40150  IF  St=“N"  OR  B$="n“  THEN  40160 
40155  RETURN 

40160  PRINT  : PRINT  :PPINT 

40165  INPUT  "  Please  enter  Iteration  #  ",  ITERATE 

40170  GOTO  40153 
4011  REM 
40130  REM 

41100  REM  *♦***♦♦*♦+**♦*****  33-15  FOOTCANDLE  LEVELS  *♦*********♦*******+*♦*♦♦♦ 
41105  REM 
41110  REM 
41115  CLS 

41120  PRINT  : PRINT  .-PRINT 

41125  PRINT  TAB*25)  "FOOTCANDLE  LEVEL  REQUIREMENTS" 

41130  PRINT  : PR I NT  : PRINT 

41135  PRINT  TAB ( 12)  "You  must  select  the  room's  actual  use  along  with  its" 

41140  FEINT  TAB ( 12)  "corresponding  FC  level  from  the  Following  table.  This” 
41145  PRINT  TAB  1 12)  "table  comes  trom  the  AFR  38-15,  and  is  split  into  three" 
41150  PRINT  TAB ( 12>  "screens.  To  enter  your  own  FC  level,  choose  41  on  the" 
41155  PRINT  TAB (12)  "first  screen." 

41160  FEINT  : PRINT  :PRINT  : PRINT  TAB (26); 

41165  INPUT  "Press  (RETURN)  to  continue.”,  B* 

41170  8=1  :D=0 
41175  CLS 
$1180  CLS 

41135  FEINT  /ROOM  TYPE”, "ROOM  USE  V’FC  LEVEL" 

41190  PRINT 

41195  FOR  A=B  TO  <B+11> 

41200  PRINT  , A, RMU3E* ( A) , RMUSELEVEL (A) 

41205  NEXT  A 

41210  FEINT  : PRINT  , (B+12), "OTHER" 

41215  PRINT  : PRINT  :  INPUT  "  Enter  selected  Room  Type:  ",  PIUYPE 

41220  IF  RMTYPE  >  (B-I)  AND  RMTYPE  <  (B+12)  THEN  41255 

41225  IF  RMTYPE  >  37  THEN  41325 

41230  IF  D=1  OR  D=2  TH01  41240 

41  *.'35  6=13  i  D=  1  :  SOTO  41175 


nwjHixnx*y?x'xwxw*jFvn,xwmJi  *y  m  ■>'  rg^rarwrororon jroruj».m^ir*y  TOwnrowura 


41240  IF  D=2  THEN  41250 
41245  E=25  :D=2  :GOTO  41175 
41250  3=1  :0=0  : GOTO  41175 
41255  IF  FfITVPE  =  1  THEN  41345 

41250  'CLEVEL=RI1U3ELEVEl  (FlMTYPE)  : RGOMUSE t=RMUS£J * RMTYPE ; 

41255  CL3  : PRINT  : PRINT  :PRINT  :PRINT 

41270  PRINT  TAB (20)  "You  nave  chosen:  ",  POOMUSEt 

41275  PRINT 

41230  PRINT  TAB <20)  "With  a  footcandle  level  of:  ",  FCLEVEL 
41235  PRINT  .-PRINT  TAB'20); 

41290  INPUT  "Is  this  correct  (Y/N)  V  B$ 

41295  IF  B$=“N"  05  B$="n"  THEN  41305 
41300  RETURN 

41305  PRINT  : PR I NT  :PRINT  TAB! 12); 

41310  INPUT  "Please  select  again,  aress  '-RETURN-  when  ready.".  3$ 

41315  GOTO  41170 
41320  REM 

41325  CL 3  : PRINT  :PRINT  : PRINT  :PRINT  :PRINT  ; PRINT 
41330  PRINT  TABUS) : 

41335  INPUT  "Invalid  entrv.  press  RETURN  to  try  again.".  55 

41340  GOTO  41170 

41345  CL3  : PRINT  : PRINT  :PRINT 

4*350  INPUT  "  Please  indicate  desired  CC  level:  ",  FCLEVEL 

41755  S0CML.SE*  =  KMUSESiRMPPE*- 

41350  GOTO  41255 

413oo  REM 

41370  REM 

42100  REM  *****♦**♦*♦+*♦«***  ROOM  DIMENSION  INFORMATION  ********+******4******* 
42105  REM  ROOM  CAVITY  RATIO  CALCULATIONS. 

42110  REM 

42115  CL5  : PRINT  : PRINT  :PRINT  : PRINT 


42120 

PRINT 

TAB1 30 i 

"ROOM  DIMENSIONS" 

42125 

PRINT 

: PRINT 

42130 

PRINT 

’ASUS) 

"To  calculate  the  cavit 

ratios  of  the 

ro  cm. 

•''* *  -c 

PRINT 

T4B'15' 

"either  the  room  length 

and  »idth  must 

be" 

PRINT 

*AB‘ 15* 

*-iS5d«  tr»5 

■ere’’  anc  ♦Ico-* 

area 

i*>*  me 

PRINT 

TAB (15) 

"must  be  ..sec. " 

42150  PRINT  :?RINT  ; PRINT  : PRINT 

PRINT  TAB ( 10)  "Which  will  you  be  using  to  calculate  the  cavity  ratios' 


42150  PRINT 
42155  PRINT  TAB! 10) 
42170  PRINT  TAB UO' 
42175  PRINT  TABUO>; 
42130  INPUT  ’ 

42185  CL3 

421*50  PRINT  : PRINT 
421°5 
42200 
42205 
42210 
42215 
42220 


'Enter  U>  for  length  and  width  measurements.  ” 

'  !2)  for  perimeter  and  area  measurements." 


PRINT  TAB < 10)  "Enter  the  following  room  dimensions  (in  feet):" 
PRINT  :PRINT  :PRINT 


42230 

42235 

42240 

42245 

42250 

42255 

42250 

an'v  r 
•♦ta-OJ 

42270 

42275 

4:230 

’223: 


IF  8=2  THEN  42225 
INPUT  " 

INPUT  " 

GOTO  42235 
INPUT  " 

INPUT  " 

PRINT 
INPUT  ' 

INPUT  ” 

INPUT  " 

REM 

IF  B=2  THEN  42285 

RMFER  =  2  »  PMLGTH+PHWDTH’ 

RMFAREA  =  RMLGTH  ♦  RMWDTH 
REM 

IF  FTCHG*  0  CR  FTFHGT  0  THEN  42420 


Room  Length:  RMLGTH 

Room  Width:  RMWDTH 

Room  Perimeter:  RMPEP 

Room  Floor  Area:  RMFAREA 

Floor  To  Ceiling  Height:  FTCHGT 

Floor  To  Fixture  Height:  FTFHGT 

Floor  To  Working  Surface  Height:  FTWSHGT 


VHGT  = 


i  rHb  i 


n . ::  l 


-r"9i't 

4:295 

4;~... 

41305 

42310 

42315 


42330 


Fi-i-iCi 

42340 

42345 

42350 


4„jo0 

42365 


42375 

42330 


IF  TCAVHGT  >  THEN  42420 
RCAVHGT  =  FTFH5T  -  FTWSHGT 
IF  RCAVHGT  0  THEN  42420 
FCAVHGT  =  FTWSHG^ 

IF  FCAVHGT  '  0  THEN  42420 
FEM 

TCAVRAT  =  (2.5  +  UCAVHGT 
RCAVRAT  =  (2.5  ♦  (RCAVHGT 
FCAVRAT  =  '2.5  +  (FCAVHGT 
REM 

CLS  : PRINT  : PRINT  : PRINT 

FEINT  "  Please  verify  the  tol lowing  information:" 

PRINT  .-PRINT 
IF  B=2  THEN  42370 
PINT  TAB i 15)  "The  Room  Length: 

"The  Room  Width: 

"The  Room  Perimeter: 

"The  Room  Floor  Area: 


RfffER) ) 
RMFER)) 
RlffER) ) 


/  RMFAREA 
/  RMFAREA 
/  RMFAREA 


42390 

42395 

424iXi 

-*24';5 

42410 

42415 

42420 

42425 

42430 

42425 

42440 

42445 

4245) 

42455 

424V 


PRINT  TABdoi 
PRINT  TABUS) 
PRINT  TABUS) 
PRINT 

PRINT  TABUS) 
PRINT  TABU5) 
PRINT  TABUS) 
PRINT  : PRINT 

input 


PMLGTH;  "ft.  * 
RMWDTH:  "Ft." 
FtIPER;  "ft." 


RMFAREA;  "ft  2" 


"The  Floor  to  Ceiling  Height: 

"The  Floor  to  Fixture  Height: 

“The  Floor  to  Worhnq  Surtace  Heiqht: 


FTCHGTj 
FTFHGT;  ' 
FTWSHGT; 


Ft." 

"Ft." 


'V-N* 


Bt 


42470 

42475 

42480 

42485 

42490 

42495 

49500 

42505 

43100 

43105 

43110 

43115 

43120 

43125 

43130 

43135 

43140 

43145 

43150 

43155 

43160 

43165 

43170 

43175 


Is  evervthinq  correct 
IF  BJ="n"  OR  BI=“N"  THEN'  42485 
RETURN 
CLS 

PRINT  : PRINT  : PRINT  : PRINT  TAB (5); 

PRINT  "Please  ensure  that  vour  numbers  fit  the  Pollening  requirements:"' 
PRINT  : PRINT  TAB (8); 

PRINT  “U)  Fixture  height  must  be  equal  to  or  less  than  Ceihnq  height:" 
PRINT  TAB (3): 

PPIN7  "(2)  Working  surface  cannot  be  above  Fixture  heiqht;  and" 

PRINT  TAB! 3): 

PRINT  No  su f’jcs  heinht  can  be  less  chan  cero." 

PRINT 

PRINT  TAB'S)  "Please  enter  the  height  dimension;  anain:  '' 

FEINT  : PRINT 


47130 

43135 

43190 

43105 

43200 


PRINT  :PRINT  : PRINT  TABU1) ; 

INPUT  "Please  re-enter  data,  press  (RETURN)  when  readv. ",  Bi 

GOTO  42135 

FEM 

REM 

FEM  #♦***+♦**+♦*******  SURFACE  REFLECTANCES  **♦*******♦**«*+*+****♦*«**♦♦ 

REM 

REM 

CLS  : FEINT  ; PRINT  : PRINT 

PRINT  TAB (30)  "SURFACE  REFLECTANCES" 

FEINT  -.PRINT  :PRINT 

PRINT  TAB < 12)  "You  need  to  choose  the  color  and  reflectance  ratings" 

PRINT  TAB ( 1 2)  “of  the  ceiling,  the  walls,  and  the  floor.  Following” 

PRINT  TAB < 12)  "are  3  screens  full  of  colors  and  their  associated" 

PRINT  TA8U2)  "reflectances  to  make  your  choices  from.  Please  enter" 
PRINT  TAB ( 12)  “the  TYPE  4  in  the  sequence  indicated." 

PRINT  : PRINT  .-PRINT  TAB (26) ; 

INPUT  "Press  (RETURN'  to  continue.",  B$ 

FEM 

B=1  :C=0  :D=0 
CLS  : PRINT 

FEINT  . "TYPE"  "BRAND", "COLOR", "REFLECTIVITY" 

PRINT 

FOR  A=B  TO  (8+9) 

FEINT  .A.  PTMANtiA),  PTCOLORf (A) :  TAB: 60 I  PTREFLiAi 
NEXT  A 


A.  22 


43205  PRINT  : PRINT  . (B+10),  "OTHER" 

43210  PRINT  : PRINT 

43215  PRINT  ,“To  select,  Enter  TYPE  4" 

43220  PRINT 

43225  Ic  C=1  SOTO  43275 
43230  IF  C=2  GOTO  43325 

472'5  INPUT  "  TYPE  4  tor  Ceiling  Color:  ",  CLREF 

43240  IF  CLREF  >  (B-l)  AND  CLREF  (B+10)  THEN  43230 

43245  IF  CLREF  >  31  THEN  43 '90 

43250  IF  D=1  OR  D=2  THEN  43260 

43255  6=11  :D=1  :GOTO  43175 

43260  IF  0=2  THEN  13270 

43265  B=2'  :D=2  : SOTO  43175 

43270  8=1  :D=0  :GOTO  43175 

43275  PRINT  TAB(Ij)  "TYPE  #  for  Ceiling  Color:  CLREF 

43230  C=1 

47285  INPUT  "  TYPE  4  for  Wall  Color:  ",  WLREF 

43290  IF  WLREF  >  (B-l)  AKO  WLREF  <  (B+10'i  THEN  43335 

43295  IF  WLREF  /  31  THEN  43490 

43300  IP  D=1  GR  D=2  THEN  43310 

43305  B=li  :D=1  :60T0  43175 

43310  TF  D=2  THEN  43320 

47315  B=21  :D=2  :GOTO  43175 

43320  B=1  : D=0  :SCTQ  431-5 

13325  PRINT  TABUS)  "TYPE  I  for  Ceiling  Color:  ":  CLREF 

43330  PRINT  TAB (15)  "TYPE  4  for  Wall  Color:  WLREF 

43335  C=2 

43340  INPUT  “  T  'PE  4  for  Floor  Color:  ",  FLREF 

43345  IF  FLREF  -  <B-I'  AND  FLREF  (B+i'Y  THEN  43330 

43350  IF  FLREF  ;  31  THEN  43490 

43355  IF  D=1  OR  D=2  THEN  43365 

43360  8=11  :D=1  .-GOTO  43175 

43365  IF  D=2  THEN  43375 

13370  B=21  :D=2  :GOTO  43175 

47’73  B=1  :2="  :GOTO  43! '5 

43360  T" 

43335  CL 5  : PRINT  : PRINT 

433.P '<  PRINT  TAB « 101  "You  Rave  chosen:" 

43395  PRINT  : PRINT 

43400  PRINT  TAB (10)  PTCOLOR* (CLREF);  TAB (30)  "with  a";  PTREFL (CLREF); 

43405  PRINT  7.  Reflectivity  for  the  Ceiling." 

43410  PRINT 

43415  PRINT  TAB (10)  PTCCLOR* 1 WLREF > ;  TAB (30)  "with  a":  PTREFL (WLREF-; 

43420  PRINT  7.  Reflectivity  for  the  Walls." 

43425  PRINT 

43430  PRINT  TAB (10)  PTCOLORSi FLREF);  TAB (30)  "with  a";  PTREFL (FLREF); 

43435  PRINT  7.  Reflectivity  for  the  Floor." 

43440  PRINT  ;PRINT  : PRINT 

43445  INPUT  "  Are  these  all  correct  (Y/N)  ";  5$ 

43450  IF  B*="N“  OR  Bt="n"  THEN  43475 

43455  CEILREF  =  PTREFL (CLREF)  :CLCOLOR$  =  PTCOLORI (CLREF) 

43460  WALLFEF  =  PTREFL (WLREF)  :WLC0LGR*  =  PTCOLOR* (WLREF f 
43465  FLOQREF  =  PTREFL (FLREF'  :FLCOLOR$  =  PTCOLOR* (FLREF - 
43470  RETURN 

43475  PRINT  :PRINT  : PRINT  TAB(IO); 

43480  INPUT  "Please  re-enter  you  choices,  press  (RETURN  to  continue.",  B$ 
43485  GOTO  43165 

43490  CLS  : PR I NT  :PRINT  :PRINT  rPRINT  ; PRINT  :PRINT 
43495  PRINT  TAB ( 12) ; 

43500  INPUT  “Invalid  entry,  press  (RETURN)  to  try  aqain. ”,  B* 

43505  GOTO  43175 
43510  REM 
43515  REM 

441'X)  REM  #♦****»+♦♦*****♦**  ROOM  DIRT  CONDITIONS  **♦♦«**♦♦**«♦*♦♦♦**♦*#*«*#*♦♦ 

44105  REM 


CIS  iFRINT  : PRINT  :PRINT 

PRINT  TAB! 30)  "POOH  DIRT  CONDITIONS” 

PRINT  : PRINT  : PRINT 

PRINT  TAB (23)  "You  must  select  a  Dirt  Condition 
PRINT  T AB *. 23 "and  a  cleaninq  cycle  tor  the  room." 

PRINT  : PRINT  iPRINT  iPRINT  TABiDfc' ; 

INPUT  "Press  RETURN)-  to  continue.”,  B1 
CLS  iPRINT  .-PRINT 

PRINT  /'DEGREES  OF  ROOM  DIRT  CONDITION" 

PRINT  : PRINT 

PRINT  , "DEGREE”, "EXAMPLE” /'CONDITION” 

PRINT 

B=S 

FOR  A=1  TO  5 

PRINT  ,A.3,RMDTCD$!A.l.i 

B=B+1 

NEXT  A 

PRINT  iPRINT 

PRINT  ”  Enter  DEGREE  i  to  select  condition  or/' 

PRINT  “  EXAMPLE  t  to  see  explanation  oF  condition.” 

PRINT  iPRINT 

INPUT  “  Selection!  ",  C 
REM 

IF  C  1  OR  C  10  ^EN  44455 
IF  C  -  0  AND  C  t  o  THEN  44345 
IF  C  '  5  AND  C  11  THEN  44265 
PRINT  : PRINT 

INPUT  ”  Invalid  entry,  cress  RETURN)  to  trv  again.”,  B1 

GOTO  44140 

REM 

CLS  '.PRINT 

PRINT  TAB!  10)  "CONDITION  :  ”,  RMDTCD* (C-5, 1  .* 

PRINT  iPRINT 

PRINT  /'GENERATED  D!F'T".  3MDTCDt(C-3.2 
PRINT 

PRINT  /'AMBIENT  DIRT  ",  RMDTCDKC-5.3) 


PRINT 

PRINT  /'REMOVAL  OR 
PRINT  /'FILTRATION" 
PRINT 

PRINT  /'ADHESION 
PRINT 

PRINT  /'EXAMPLES 


\  R:MDTCB*(C-5,4; 


*,  RMDTCDKC-5, 5.) 


PRINT  /'EXAMPLES  ”,  RMDTCDtiC-5,6) 

PRINT  iPRINT  iPRINT  : PRINT  iPRINT  TAfi(lO) ; 

INPUT  'press  RETURN)  when  ready  to  continue.”,  Bt 

GOTO  44150 

REM 

DIRTCDt  =  RMDTCDKC.l) 

REM 

PRINT 

PRINT  "  Please  indicate  the  normal  time  between  Fixture  cleaninq. 

PRINT  "  Example:  Cleaned  once  everv  three  years  =  36  months." 

PRINT 

INPUT  "  Your  cleaninq  c.cle  time  <in  months)'':  CLCYCLE 
CLS  .-PRINT  : PRINT  iPRINT  iPftlNT  : PRINT 
PRINT  TAB (20)  "You  have  chosen:” 

PRINT  ; PRINT 

PRINT  TAB(20)  "A  Room  Dirt  Condition  ot:  ”  DIRTCDt 
PRINT 

PRINT  TAB'C'j)  "and  a  Cleaning  Cycle  oF:  "  CLCYCLE;  ''  months" 

PRINT  iPRINT  iPRINT  iPRINT  ThB(15>: 

INf'UT  "Are  these  correct  (V/N> ” ;  El 
!FtB*="N"  OR  61= "n”  THEN  44435 
return 


44440  PRINT  : PRINT  TAB (15): 

44445  INPUT  "Please  re-enter  data,  press  RETURN;  when  ready.",  8$ 

44450  SOTO  44150 
■14455  PRINT  1  PRINT 

44460  INPUT  "  Invalid  entry,  press  (RETURN)  to  try  again.  ",  8$ 

44465  GOTO  44150 
44470  REN 
44475  REN 

45100  REN  ******************  LIGHT  SOURCE  TYPES  ******************************* 
45105  REH 
45110  REN 
45115  CIS 

45120  PRINT  : PRINT 

45125  PRINT  TAB!32)  "LIGHT  SOURCE  CHOICES" 

45130  PRINT  : PRINT  :PRINT 

45135  PRINT  TAB (20)  "CHOICE"  TA8140)  "LIGHT  SOURCE  TYPE" 

45140  PRINT  : PRINT 
45145  FOR  A=1  TO  5 

45150  PRINT  TAB (22)  A;  TAB(40)  S0URCE*!A,1);  TAB-'62!  “(“;  SOURCE* « A, 2) :  “i1" 
45155  NEXT  A 
45160  PRINT  : PRINT 

45165  INPUT  *  Enter  CHOICE  4  f or  source  selection:  ",  SOL 

45170  IF  SOL  ;  1  OR  SOL  )  5  SOTO  45200 

45175  REN 

45180  PRINT  : PRINT 

45185  INPUT  "  Do  you  want  to  use  a  fixture  stored  in  memory  (Y/'N)  8* 

45190  IF  B*=“n"  OR  B*="N"  THEN  3TTAB=2  ELSE  STTAB=1 
45195  RETURN 
45200  REN 

45205  PRINT  :PRINT 

45210  INPUT  "  Invalid  entry,  press  "RETURN)  to  trv  again.",  8$ 

45215  GOTO  45115 
45220  REN 
45225  REN 

47:00  FEN  ******************  FIXTURE  CHOICES 
47105  REN 
47110  REN 
47115  CLS 

47120  PRINT  TAB <21 )  "FIXTURE  CHOICES:  SOURCE* (SOL, 1):  "  Fixtures" 

47125  PRINT  : PRINT  : PRINT 

47130  PRINT  "CHOICE":  TAB (12)  "FILE  TA8<23)  “HAKE";  TAB(37)  "NODEL 
47135  PRINT  TAB(51>  "MAIMT. TAB(64)  ?,DIST. " ;  TAB(74)  "S/NH" 

47140  PRINT  TAB (5C*>  "CATEGORY";  TAB(64;  "TYPE" 

47145  PRINT  :PRINT 
47150  FOP  A=1  TO  10 

47155  PRINT  TAB(3)  A:  TAB (12)  FCODE* (SOL, A, 1 / ;  TAB(23)  FCODE* iBOL, A. 2) : 

47160  PRINT  TAB'37)  FCODE* (SOL, A, 3) :  TAB(53)  FCODE* (SOL, A, 4); 

47165  PRINT  TAB (65)  FI XTDATA (SOL , A, 2) ;  TAB(74)  F I XTDATA (SOL, A, 1) 

47170  NEXT  A 
47175  PRINT  :PftINT 

47180  PRINT  "  Enter  CHOICE  *  to  choose  fixture,  or" 

47181  INPUT  “  (0)  to  choose  different  light  source  type:  ”,  FFC 

47185  IF  FFC  <  0  OR  FFC  >  10  GOTO  47360 

47186  IF  FFC  =  0  THEN  RETURN 
47190  REM 

47195  REM 
47200  CLS 

47205  PRINT  -.PRINT 

47210  PRINT  TAB (20)  "FIXTURE  CHOICES:  SOURCE* (SOL,  1 ) ;  "  Fixtures" 

47215  PRINT  : PRINT 

47220  PRINT  TAB (10)  "You  have  chosen:” 

47225  PRINT 

47230  PRINT  TA8(20)  "Fixture  Mai-e:";  TAB(55)  FCODE* (SOL. FFC, 2! 

47235  PRINT 


47240  PRINT  TABOO)  "Fixture  Model:";  TAB<55»  FC0DttiSQL.FFC.3i 
47245  PRINT 

47250  PRINT  TAB (20>  ''Future 's  Maintenance  Category;1';  TAB ‘.55)  FCODE* (SDL. FFC. 4) 
47255  PRINT 

47260  PRINT  TAB (20)  "Fixture's  Distribution  Type:';  TAB (55)  F I XTDAT A ( SOL , FFC . 2 ’• 
47265  PRINT 

47270  PRINT  TAB (20)  "Fixture's  S/MH  Ratio:";  TAB(55)  FI XTDATA (SOL. FFC, 1 ) 

47275  PRINT  : PRINT 

47280  INPUT  "  Are  these  correct  ( Y/N)  B$ 

47285  IF  8*=“N"  OR  B*=V  BGTO  47335 
47290  PPM 

47295  FI XTF1LE*  =  FCODE* « SOL, FFC, 1) 

47300  FIXTHAKE*  =  FCODE* < SOL, FFC, 2) 

47305  FIXTMODEL*  =  FCODE* (SOL. FFC, 3) 

47310  MAINCAT*  =  FCODE* (SOL, FFC, 4) 

47315  STMHRAT  =  F1XTDATA (SOL, FFC, 1> 

4'320  DISTTYP  =  FIXTDATA (SOL, FFC,2) 

4'325  REM 
47330  RETURN 
4-335  PRINT 

47340  INPUT  "  Please  choose  aqain,  press  ■  RETURN  when  readv.",  Bt 

47345  GOTO  47115 

47350  REM 

47355  REM 

47360  PRINT 

47365  INPUT  "  Invalid  entry,  press  '.RETURN,  to  trv  aqain.  ",  B* 

47370  GOTO  47115 
47375  REM 
47380  REM 

48100  REM  ******************  LAMP  CHOICES  **♦*♦*#*♦*♦***♦***«***#**#******♦#*♦ 
48105  REM 
48110  REM 
48115  CIS 

43120  PRINT  TAB (21)  "LAMP  CHOICES:  SOURCE* < SOL,  H:  "  Lamps" 

48125  PRINT  : PRINT 

48130  PRINT  TAB ,8)  ’CHOICE":  146117'  "PILE  4":  TAB*.  31  >  'CODE": 

48135  FRINT  TAB (43)  'WATTS”;  TABi55)  "INITIAL1;  TAB(o8)  ‘MAINT. “ 

48140  PRINT  TAB(55)  "LUMENS":  TAB<68)  "LUMENS" 

48145  PRINT 
48150  FOR  A=1  TO  10 

48155  PRINT  TAB(IO)  A;  TAB (19)  LCQDE* (SOL . A, i);  TAB (30)  LCODE* i SOL , A , 2 ' ; 

48160  PRINT  TAB (43)  LAflPDATA (SOL, A,  1) ;  TAB(55)  LAMPDATA (SOL, A, 2) ; 

48165  FRINT  TAB (68 '  LAMPDATA (SOL , A, 3) 

48170  NEXT  A 
48175  PRINT  :PRINT 

43180  INPUT  "  T0  select  a  lamp,  ente>'  CHOICE  »  ",  LLC 
48185  IF  LLC  1  OR'  LLC  >  10  GOTO  48375 
48190  PRINT 

48195  INPUT  "  How  many  lamps  are  required  per  fixture";  LAMPNUM 
48200  IF  LAMPNUM  1  THEN  48375 
48205  PEM 
48210  CLS 

48215  PRINT  :PRINT 

48220  FRINT  TAB ( 10)  "You  have  chosen:" 

48225  PRINT  : PRINT 


48230  PRINT  " 
48235  PRINT 
48240  PRINT  " 
48245  PRINT 
48250  PRINT  * 
48255  PRINT 
48260  PRINT  “ 
48265  PRINT 
48270  PRINT  " 
482^5  POINT 


Lamp  Type: 

Lamp  File  # 

Lamp  Code: 

Lamp  Watts: 

Lamp's  Initial  Lumens: 


SOURCE* (SOL. 1) 

";  LCOD£*(SOL,LLC, 1 ! 

LCODE* (SOL, LLC, 2) 

“;  LAMPDATA(SOL,LLC, 1) 
LAMPDATA (SOL, LLC, 2) 


.fk  .«k  .t|  , 


PRINT  '  uiJiP  i  Maintained  -unens:  LAMPDATAiSOL,.U.C,G; 

PRINT 

DRINT  "  Lamps  per  Fixture:  LAMPNUM 

PRINT  : PRINT 

INPUT  11  Is  evervthinq  correct  (Y/N!  B$ 

IF  B*="N“  OR  B*="n“  GOTO  43315 
GOTO  43335 
PRINT  :PRINT 

INPUT  "  Please  choose  again,  press  .RETURN)  when  reaflv.  ”,  B$ 

GOTO  48115 

REM 

LAMPFILE*  =  LCODE*(SOL,LLC,1) 

L3UANT  =  LAMPNUM 
L WATTS  =  LAMPDATA(SOL,LLC, 1) 

INITLU1  =  LAMPDATA (SOL, LLC. 2) 

MAINTLUM  =  LAMPDATA (SOL, LLC, 3) 

ITYF'E*  =  LCODE* ( SOL, LLC, Z) 

RETURN 

REM 

PRINT  : PRINT 

INPUT  “  Invalid  entry,  press  -RETURN;  to  trv  again.  ”,  Bt 

GOTO  48115 

REM 

REM 

REM  *♦***♦****♦*****♦*  , '(ON-TABLED  ROOM  INFORMATION  ♦+*♦<*♦♦**♦*♦♦****♦**** 

REM 

REM 

REM  ******************  ROOM  USE  W/0  TABLES 
CLS 

PRINT  : PR  I  NT  :PRINT  : PRINT  : PRINT 

INPUT  “  Please  enter  the  room's  use:  ”,  ROOMUSEi 

PRINT 

INPUT  "  Please  enter  the  FC  levei  required:  ”,  FCLEVEL 

FRINT  : PRINT  :PR!NT  : PRINT 

INPUT  "  Is  evervthing  correct  iY,N>  ':  B$ 

IF  3$="N"  DR  8*=''-!“  THEN'  30153 
RETURN 

PRINT  : PR I NT  :PRINT 

INPUT  "  Re-enter  data.  press  -RETURN-  when  reaov.'1,  B* 

GOTO  50120 

REM 

REM 

REM  *♦♦*♦♦*♦*******♦♦♦  ROOM  REFLECTANCES  W/0  TABLES 
CLS 

FRINT  :PRINT  :PRINT 

INPUT  ”  Please  enter  the  Ceihnq  Color:  ”,  CLCOLOR* 

INPUT  "  Please  enter  the  Ceiling  Reflectance  mo  decimal;:  ”,  CEiLREF 

.  FRINT 

1  INPUT  1  Please  enter  the  Wall  Color:  ”,  WLCOLQR* 

INPUT  ”  Please  enter  the  Wail  Retlectance  ;no  decimal':  ”,  WALLPEF 

PRINT 

INPUT  "  Please  enter  the  Floor  Color:  ",  FLCOLOR* 

INPUT  "  Please  enter  the  Floor  Reflectance  (no  decimal):  ”,  FLOOREF 

PRINT  : PRINT  :PRINT 

INPUT  "  Is  everything  correct  !Y/N)  B* 

IF  B$="N'‘  OR  E*="n"  THEN  50290 
IF  CEILPEF  <  1  OR  CEILREF  100  THEN  50280 

IF  WALLREF  -  t  OR  WALLREF  >  100  THEN  50280 

IF  FLOOREF  1  OR  FLOOREF  >  100  THEN  50280 

i  RETURN 
|  FRINT  : PRINT 

PRINT  1  Reflectances  inust  de  greater  than  one  ano  less  than  iuu. " 

PRINT  : PRINT 

INPUT  "  Please  re-enter  data,  oress  RETURN  when  ready.",  B* 

GOTO  501^5 


Lamps  per  Fixture: 


LAMPNUM 


./»/  s r  V 

■  ■  •  M  M  7.  - 


50310  REM 

51100  REM  NON- STORED  FIXTURE  INFO  t************************** 

51105  REM 
51110  REM 
CL5 

PRINT  TAB (30)  "LUMINAIRE  INFORMATION" 

PRINT  : PRINT 

PRINT  "Please  enter  the  following  information  on  the  fixture  you  wish  to": 
PRINT  "  use:  " 

to  get  help,  when  shown) 


PRINT  "(Enter 
PRINT  : PRINT 


jiiu 

51120 
51125 
51130 
51135 
51140 
51145 

51150  INPUT  " 

51155  INPUT  " 

51160  PRINT 
51165  INPUT  “ 

51175  IF  MAINCAT*  =  "I"  THEN  51220 
51130  IF  MAINCAT*  =  "11”  THEN  51220 
51135  IF  MAINCAT*  =  “III"  THEN  51220 
51190  IF  MAINCAT*  =  “IV”  THEN  51220 
51195  IF  MAINCAT*  =  "V"  THEN  51220 
51200  IF  MAINCAT*  =  "VI"  THEN  51220 


Fixture  Make: 

Fixture  Model: 

Maintenance  Category  <OR  '0  i: 


FIXTMAKE* 

FIXTMODELt 

MAINCAT* 


51205 

30SUB 

54100 

51210 

A=1  :buT0  51; 

oi_15 

REM 

c  1  t  ?r- 

INPUT 

u 

51225 

IF  DISTTYP  < 

51230 

A=2  :G0T0  51! 

51235 

REM 

51240 

INPUT 

ll 

51245 

PRINT 

: PRINT 

51250 

INPUT 

it 

51252 

INPUT 

•I 

51255 

INPUT 

" 

51260 

INPUT 

" 

31263 

INPUT 

" 

51270 

REM 

51273 

IF  MAINTLUM=> 

51280 

REM 

51285 

GOTO  5 

(1375 

51290 

REM 

51295 

CLS 

51300 

PRINT 

TAB (30 

31305 

PRINT 

:  PRINT 

51310 

PRINT 

'Pleasi 

51315 

PRINT 

"  use: 

51320 

PRINT 

"(Entei 

51325 

PRINT 

51330 

PRINT 

ii 

51335 

PRINT 

N 

51340 

PRINT 

51345 

PRINT 

11 

51350 

IF  A=1 

THEN  ! 

51355 

REM 

51360 

PRINT 

M 

Distribution  Tvpe  (OR  ’ 0  > : 


Spacing-to-Mountmg  Height: 

Lamp  Type: 

Lamp  Wattaqe: 

Lamp  Quantity: 

Initial  Lumens: 

Maintained  Lumens  or  1  -or  terauit:; 


DISHVP 


STMHRAT 

LTYPE* 

LWATTS 

LOUANT 

INITIJJM 

MAINTLLM 


Fixture  Make: 

Fixture  Model: 

Maintenance  Category  (OR  ‘ 0  > : 


Distribution  Type  (OR  '0'): 

51365  GOTO  51240 
51370  REM 
51375  CLS 

51380  PRINT  TAB (30)  "LUMINAIRE  INFORMATION" 

51385  PRINT  :PRINT 

51390  C'PINT  "  please  verify  the  following: 
51395  PRINT  :PRINT 
31400  PRINT  * 

51405  PRINT  " 

31410  «:nt 


"!  FIXTMAKE* 
•;  FIXTMODELt 

"j  MAINCAT* 

:  DISTTYP 


Fixture  Make: 
Fixture  Model: 


;  FIXTMAKE* 

!  FIXTMODELt 


51415  PRINT  "  Maintenance  Category: 

51420  PRINT  11  Distribution  Type: 

51425  PRINT  “  Spacinq-to-Mouhting  Height: 

51430  PRINT  : PRINT 

51435  PRINT  "  Lamp  Type: 

51437  PRINT  "  Lamp  Wattage: 

51440  PRINT  "  Lamp  Quantity: 

51445  PRINT  "  Initial  Lumens: 

51450  PRINT  *  Maintained  Lumens: 

51455  PRINT  :PRINT 

51460  INPUT  "  Is  everything  correct  (Y/N)  B* 

51465  IF  B$=“N“  OR  B$=‘n“  THEN  51515 

51470  IF  LQUANT  <  1  THEN  51490 

51475  IF  INITLUM  <  MAINTLUM  THEN  51500 

51480  REM 

51485  RETURN 

51490  PRINT  : PR I NT  "  Lamp  quantity  must  be  qreat 
514*5  GOTO  51515 

5150*)  PRINT  : PRINT  ”  Initial  lumens  must  be  qrea 


'  flfilNCAT* 

DISTTYP 

STMHRAT 

“  LTYFEt 

LWATT5 

LQUANT 

INITLUM 

MAINTLUM 


Lamp  quantity  must  be  greater  than  one.” 


5150*)  PRINT  :  PR  I  NT  ”  Initial  lumens  must  be  qreater  than  maintained  lumens." 
51505  GOTO  51515 
51510  REM 
51515  PRINT 

31520  INPUT  "  Please  re-enter  data,  press  RETURN)  when  ready.  ”,  Bt 
51525  GOTO  51115 
51550  REM 
51535  REM 

54100  REM  **************  MAINTENANCE  CATEGORIES  +**************♦**♦*****♦******* 
54105  REM 
54110  REM 
54115  CLS 

54120  PRINT  : PRINT 


54130  PRINT  : PRINT  :PRINT 

54135  PRINT  TAB(  10>  "CHOICE":  TAB (25)  "EXAMPLE":  TAB *40)  "MAINTENANCE" 
54140  -RINT  TAB  *  60)  "AMOUNT  OF" 

34145  PRINT  TAB(42  "CATEGORY":  TABfoT'-  "WORK" 


24145  PRINT  "AB(42  “CATEGORY":  TABfoC'-  "WORK" 

54150  PRINT 
54155  FOR  A=1  TO  o 

54160  PRINT  TAB  ’ll:  A;  TAB *27)  :A*6.';  TAB  (45)  MCATt(A.l):  TAB » 63)  MCAT*(A,2) 
54165  NEXT  A 

54170  PRINT  : PRINT  :PRINT 


54175  PRINT 
5413*)  INPUT 


Enter  CHOICE  »  Tor  selection  or, “ 
EXAMPLE  4  for  eolaination.  11 
3  12  THEN  54320 


54190  IF  B  <  7  GOTO  54305 

54195  REM 

5420*)  CLS 

54205  PRINT  : PRINT 

54210  PRINT  TAB (28)  "MAINTENANCE  CATEGORY  EXAMPLE" 


54215  PRINT 

54220  PRINT  TAB<35:  "CATEGORY  MCATKB-6,1) 
54225  PRINT  : PRINT 

54230  PRINT  TAB (10)  "TOP  ENCLOSURE:” 

54235  PRINT 
54240  FOR  A=3  TO  5 


54245  PRINT  TAB (10)  (A-2): 
54250  NEXT  A 


■;  MCAT*(B-6,A) 


54260  PRINT  TAB(IO)  "BOTTOM  ENCLOSURE:" 
54265.PRINT 


542’’t*P0R  A=6  TO  7 

54275  PRINT  TAB(IO)  (A-5);  ".  MCA 
54280  NEXT  A 

54285  PPINT  :PR!NT  :PRINT  ; PRINT 

INPUT  "  Press  ’RETURN 


;  MCAT$*B-b,Ar 


when  r?adv  to  continue. 


GOTO  54115 
REM 

MAINCAT*  =  MCATKB.l) 

RETURN 

REM 

PRINT  : PRINT 

INPUT  "  Invalid  entry,  press  -RETURN)  to  try  again.",  Bt 

GOTO  54115 

REM 

REM 

REM  ******************  DISTF:IBUTION  TYPES  **********«***+*****♦*♦***♦***** 

REM 

REM 

CIS 

FRINT  .-PRINT 

PRINT  TAB (30)  "FIXTURE  DISTRIBUTION  TYPES” 

PRINT  : PRINT  : PRINT 

PRINT  TAB <20)  "TYPE";  TAB (30)  “DISTRIBUTION"; 

PRINT  TAB (51)  "7.  UP”;  TAB(61)  "7.  DOWN" 

PRINT 

FOR  A=1  TO  5 

PRINT  TAB (21)  A;  TAB (30)  DTYPEKA,  1) ; 

PRINT  TAB (50)  DTYFE* (A, 2) :  TABiel )  DTYPE*(A,3> 

NEXT  A 

PRINT  : PRINT  :PRINT 

PRINT  TAB ( 10)  "Enter  TYPE  #  tor  selection: 

INPUT  "  ",  DISTTYP 

IF  DISTTYP  ■'  1  OR  DISTTYP  >  5  THEN  55195 

RETURN 

PRINT 

INPUT  "  Invalid  entry,  press  (RETURN)  to  try  again.  ",  B* 

3CT0  53115 

REM 

REM 

CEM  ♦**+*+♦♦♦*«**•*-♦***  «ARDCOPY 

REM 

REM 

CLS 

PRINT  :  PRINT  .-PRINT  :  PR  I  NT  :  PRINT  :  PRINT 
PRINT  TAB (10); 

INPUT  "Be  sure  that  your  Printer  is  on,  press  (RETURN)  to  continue.",  B* 
FAINT  : PRINT  :PRINT  :PRINT  TAB(32)  "PRINTING" 

REM 

REM 

LPRINT  TAB (20)  "INTERIOR  LIGHTING  DESIGN  PROGRAM  OUTPUT" 

LPRINT 

LPRINT  TAB (10)  "BUILDING  *  ";  BLDG*; 

LPRINT  TAB (34 i  “ROOM  #  ";  ROOM*; 

LPRINT  TAB <56)  "ITERATION:  *;  ITERATE 
LPRINT  .-LPRINT 

LPRINT  TAB(IO)  "ROOM  INFORMATION:" 

LPRINT 

LPRINT  TAB (13)  "Use:  ";  ROOMUSE*: 

LPRINT  TAB(45)  "FC  Required:  FCLEVEL 
LPRINT 

LPRINT  TAB (13)  “Length:  RMLGTH; 

LPRINT  TAB (45)  "Perimeter:  ":  RMPER 

LPRINT  TAB (13)  "Width:  RMWDTH; 

LPRINT  TAB (45)  "Area:  ";  RMFAREA 

LPRINT 

LP9INT  TAB.' 13)  "Ceiling  Height:  PTCHGTj 

LPRINT  TAB <45)  "CCR:  USING  ”»#.»*";  TCAVRAT 


ui  mu'Tj)  uwni  «  uwinu  nw  •  ww  • 

LPRINT  TAB (13)  "Fixture  Height:  ";  FTFHGT; 
LPRINT  TAB (43)  "RCF::  USING  "*#.»#";  RCAVRAT 

'-PRINT  TAB-' IT'  "Wcrlang  Height:  -TWSHGT : 


A .  5'  ' 


LFRINT 

LPRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

LFRINT 

REM 

LPRINT 

LFRINT 

LPRINT 

LFRINT 

LPRINT 

LFRINT 

LPRINT 

LFRINT 

LFRINT 

lFRINT 

LFRINT 

LPRINT 

LPRINT 

LPRINT 

LFRINT 

LFRINT 

LPRINT 

LPRINT 

LFRINT 

LFRINT 

LFRINT 

lFRINT 

LPRINT 

IF  D2 

LPRINT 

LFRINT 

IF  c: 

IF  D2 

if  c: 

.PRINT 

LFRINT 

LFRINT 

LFRINT 

LPRINT 

LFRINT 

IF  C2 

IF  D2 

IF  C2 

IF  El= 

LPRINT 

IF  c: 
if  d: 
if  c: 

LPRINT 

LPRINT 

LPRINT 

LFRINT 

LPRINT 

LPRINT 

LFRINT 

LFRINT 


TAB-:45>  "FCR:  USING  "t#.##";  FCAVRAT 


tab:  i:> 

TAB '40 i 
TAB(cO) 
TAB' lv) 
TAB1 40) 
TAB (13) 
TAB i 40) 
TAB (60) 

TAB (13) 
TAB (45) 

:  LFRINT 
TAB (10) 


"C.  Color:  CLCOLGfii: 

"Reflectance:  CEILREF: 

"Effective:  tFFCREF 

"W,  Color:  NLCOLORt; 

“Reflectance:  WALLREF 

"F.  Color:  FLCOLQR*: 

"Reflectance:  FIOOREF; 

"Effective:  EFFFREF 

"Room  Condition:  DIRTCDI; 

“Cleaning  Cycle:  CLCYCLE;  “  months" 


"LUMINAIRE  INFORMATION:  “ 


TAB (13)  “Fixture  File  *  FIXTFILEi 
TAB(13)  "Fixture  Make:  ":  FHTMAIEI: 
TAB <45/  "Lamp  File  #  ":  unMPFILE* 

TAB < 13)  "Fixture  Model:  FIXTMODEL* ; 
TAB(45!  "Lamp  Type:  LTYFEi 


TAB 1 13)  "3/MH  Ratio:  ':  sTMHRAT; 

TAB (45)  "Lamp  Quantity:  LQUANT 

TAP <  13)  "Maintenance  Categorv:  MAINCATi; 

TAB (45)  "Initial  Lumens:  (l;  INITLUM 

TAP < 13)  "Distribution  Type:  DISTTYP; 

TABI45)  "Maintained  Lumens:  MAINTLUM 

TAB < 13)  "Necessary  Values  from" 

TAB! 13)  "Fixture's  CU  Chart: 

TAB (45)  "LLD:  USING  ”#.#1#";  LLD 

TAB f 45)  "LDD:  USING  "Mi#*:  LPD 

TAB 'l”)  UPP=>";  TABU'1  TAB ( "S'  P’CF'2': 

TAB(Aj)  "RSDD:  .SING  "4.4##":  R3DD 

TAB  (13)  "PCR":  TAB  (17)  TAB- 18'  PCF'Dl  > : 

0  THEN  LPRINT  TAB '30)  PCR 'DC'; 

TAB(45)  "Total  LLF:  USING  "*.###";  LLF 

TAB ( 13)  "PNR":  TABi 17>  "l";  TABI18!  PWP(Cl); 

0  THEN  LPRINT  TAB (24)  PWR(C2); 

)  0  THEN  LPRINT  TAB (30)  PWR(C1>;  ELSE  57470 
0  THEN  LFRINT  TAB (36)  PHF;'C2'; 

TAB; 13)  “RCR";  TAB1 1')  “I"; 

TAB‘45.  "Floor  Cavity  Factor:  USING  "#.###":  1 OER 

TAB (13)  " - 1 - - - 

TAB (45)  “Final  CU:  IJSING  "».##♦":  FINALCU 

TAB (12)  ARATIO;  TAB (17)  “I";  TAB (18)  ACU(l); 

>  0  THEN  LPRINT  TAB(24)  ACU(2); 

>  0  THEN  LPRINT  TAB1 70)  ACU<3);  ELSE  57515 
0  THEN  LPRINT  TAB(36)  ACU(4); 

1  THEN  57545 

TAB !  12)  BRATIO;  TABU?)  "I";  TAB ( 19)  BCU(l); 

0  THEN  LPRINT  TABI24)  BCU<2> ; 

,  0  THEN  LPRINT  TAB (30)  BCU(3) ;  ELSE  57540 
0  THEN  LFRINT  TAB<36)  BCU(4' ; 

n  h 

:  LFRINT 

TAB (10)  "RESULTS: 

TAB •  45 ;  "Spacing  Criteria  UU:  "j  USING  '41#. SPCCR1 


f AB ( 13)  "Fixture  I  Required: 
TAB '.45)  "Initial  FC  Level: 
TAB  ,17)  "c;  .tore  4  Used: 


USING 
ACTFCINIT 
ACTFI  <NL71; 


57580  IFF:  IN 
57535  REM 
57SP0  R£M 
5^535  30TC 
5'o00  REM 
57sC5  FEM 


n*  wbw  *r.wt  virivivviwvwwiw  *ra!rou«ww!W!*!«is 


i-i.: 


2)4 

2 06 
206 
"'in 
212 
:i4 
21a 
:i9 
500 


j1.  *. 

504 


DIM  FTMANl'TOi  :CItt  pTCDLGRt<30<  :BIN 
DIM  RMUSE*i3s)  : DIM  RMUSELEVEL ;36j 
DIM  llODEKj,  10,2)  :DIM  lAMFDA7A'5.  M> 
DIM  SOURCE* ,5. 2) 

DIM  CFP'4/  : DIM  CCRtS)  :DIM  CNR*. 4) 

DIM  FCODE* *3. 10, 4>  :DIM  FIxTDATA (5, 10 
DIM  Cul  00,4,2'  : DIM  CU2<10.3,2« 

DIM  CU3U0.4.1;  : DIM  CU4(10.3.2> 

DIM  DTVPE* 1 5, 3 i 
DIM  MCAT* (6. 7) 

REM 

SOURCE* 1 . 1 :  ="  Incandescent " 

SOURCE* ( 2 , U  =“F 1 uorescen  t ” 


PTFEFL ■ 


2) 


SOURCE*  1 1,2;: 
SOURCE* '2.2' 


s'ilNC.! 
■"  <F  " 


50s 

3CUPCE* i 

1 1 ="Mercurv  Vapor" 

:  source* 

MV  i " 

508 

SOURCE* <4. 

l1 -'Metal  Halioe" 

; suURCE* 1 4 , d  f =  1 

i.MH/ " 

510 

SOURCE* *5, 

1  >  =  'hiqn  Pressure 

Scciufir  .-SOURCE* ‘3, 2'.'= ' 

;HF5 

512 

REM 

51* 

RE* 

“  i 

-7  eet .  <  • 

'=  "-a;  -cct’ 

.r.T/cet.  •  7  :"C  •' 

.-T  ttt  • 

■*  -  *  ‘  _  •  *  " 

C  1  ~ 
wlD 

D"  pe*.;,  ; 

.  =' Semi -Indirect" 

iRf. PE*  2^2 

:  f  T  r  cE*  ■  Z 

CM' 

j*; 

"t-pe*«:, i 

^"Direct-Indirect 

*  :DT'FEt'2,2'="40-cO" 

: [Type*. 3 

jJL 

DTrFE*t4. 1 

="Semi-Direct" 

:DT>FE* -4,2.1=  'lO-LO1' 

:DTiFE*.4 

3;=' 60- :0 

524 

"  PE*  5. 1 

—"Direct" 

iDTvF'Et  ;3. 2'  ="0-1  ?” 

:  DTVF'E* '  3 

32s 

52B 


REM 


5;,. i 

c-- 


■T 

IV 


:.c 
.  .8 


MCAT*-l,l-= 
MCAT*  >  4, 1 -  = 
'’CAT*  1,2'  = 
*cyi  -*.2  s»s 

::y 


iMCATt'2, 1  -'ll"  :  MCAT*  ■  3, 0  = 
: MCAT*. 5,  l'="V"  : MCAT*,. 5,;.= 

'Most"  : MCAT s •' 2. 2 '  ="  -  "  -  ' 

ic#e"  ::iChT*>3.2.-  =  '  -  " 


MCAT*.. 
MCAT*  a 


"HI' 

I 


Some" 

LedSr 


1C05 

10iv 

1015 


REM 


:CW F'2  =:•. 


ZwF i 3  =20  : C WF  4.= 


.,'“3  = 


t  V1 


E* 


:  v.'j 

i  :-40 

1045 

1050 

'  I'.ec 


1055 
1  ''.60 
I'-'bj 

M'7'> 
10 '5 
1 080 
1095 
1090 
1095 
1100 
1 105 
1U0 
.1:3 
1120 
1125 
'  1  S'-' 
112.5 


CL5  : PRINT  : PRINT  : PRINT  : PRINT  : PRINT  : PRINT 
R'e!KT  TtfiT»  "Please  Place  vour  DATA  DISK  in  the  A  drive.' 

PRINT 
RR'INT 

INPUT  "  'rose  RETURN  wher-  -sac.. 

REM 

OPEN  "I".  #!.  "A: lAMPDATA.DAT" 

-OF  A=1  T0  5 
PCR  E=1  TO  10 

INPUT#!,  LCODE*  *  A, B,  1 ? .  LCODE* ,A,B,2' 

;nfut#i,  lhmpdatai a, 3,  i > .  lampdataia.b.2',  lampdata  1  a. e*. : > 

NEXT  & 

NEXT  A 
CLOSE  #1 
REM 

OPEN  T.  #1.  "A: P I XTDATA. DAT " 

FOR  A=t  TO  5 
FOR:  &=1  TO  10 

INPUTil,  FCODE* (A, S. 1),  FCODE* (A, B. 2).  FC0DE*iA.B.3',  FCODE* (A. &. 4 ■ 
INPUT#!,  FIXTDATAiA.B, i > ,  F I XTDATA ( A, &, 2 • 

NEXT  & 

NEXT  A 
2wjSE  *1 
REM 
REM 

OPEN  "I".  *1,  'hiR'EFLECTR. DAT" 

FOR  h=1  TO  DO 


1140  INPUTtl,  DTMAM$iAi ,  PTC0L0RJ  ;A) ,  PTREFL-'A) 

1HS  NEXT  A 
1150  CLOSE  #1 
1155  REM 
11  SO  REM 

1 1*5  OPEN  T\  41.  "A: AFR9815.  INF" 

1170  FCR  A=1  TQ  36 

1175  INPUTI1,  RMUSEVA).  RIHJSELEVEL  i A) 

1130  NEXT  A 
1185  CLOSE  #1 
1190  REM 
1155  REM 

1200  OPEN  "I".  *1.  "A: rtAINTCAT. INF” 

1205  FOP  A=1  TO  & 

1210  FOR  &=1  TO  7 

1215  INPUTtl.  MCATKA.B.i 

1220  NEXT  B 

1225  NEXT  A 

1230  CLOSE  41 

1235  REM 

124-  REM 

4100  REM  *+***♦•»♦*♦*♦**«■**♦  MENU  —  Cl  ♦******o*****+***«**'M+*##++#****»**»*«* 
1105  R£M 
4 1 1 v  REM 
4115  CLS 
412V  PRINT 

4125  PRINT  TAB (35)  “MENU  -  Cl" 

4130  FRINT  : PR I NT  :PRINT 

4135  PRINT  TAB! 20 >  "TYPE":  TAB (40)  "PROCEDURE" 

4 140  fRINT  : FRINT 

4145  PRINT  TAB(22>  "1":  TAB < 40)  "Update  Menu" 

415)  PRINT 

4155  PRINT  TAB(22’  ''2";  TAB (40)  'Hardcopv  Menu" 

41 &0  PRINT  : PRINT 

FPINT  -A&.22-*  '3”:  TAB<40)  "RETURN  ■!]  MAIN  MENU" 
tl'0  PRINT  ; PRINT  : PRINT 

41  '5  INPUT  11  Please  enter  seieccec  procedure:  S 

4 ISO  REM 

4185  ON  B  GOTO  5100,6100.4195 
41%  GOTO  4100 

4195  CLS  : PRINT  :PRINT  .-PRINT  : PRINT 

4200  PRINT  TAB (20)  'c' lace  you r  PROGRAM  DISK  in  the  'A'  drive." 

4205  PRINT  :P&ii:T 

4210  PRINT  TA8(2o< j  : INPUT  "Press  .RETURN)  when  ready.  ",  6 

4215  FRINT  :PRINT  :PRINT 

4220  FRINT  TAB  (31:  "LOADING  MENU  -  A" 

4225  CHAIN  "AiLIGHTIA", I 00 
4230  PEM 
4235  PEM 

51 00  REM  ♦♦*#*♦*«•*♦*♦******  MENU  --  C2  *****♦******♦♦♦***♦*♦***♦*«*♦♦■♦**♦*«*»*♦♦ 

5105  REM 
5110  CLS  : PRINT 

5115  PRINT  TAB ( 35 )  "MENU  --  C2“ 

5120  PRINT  TAB (24)  "CHANGE  /  UPDATE  INFORMATION  DATA" 

5125  PRINT  : PR I NT  :PRINT 
5130  PRINT  , "TYPE"  ."PROCEDURE" 

5135  PRINT 

5140  PRINT  , “1", "Update  AFM  88-15  Information'' 

5145  PRINT 

5150  PRINT  . "2". "Update  Color  Reflectance  Data" 

"'53  -R’NT 

5160  PINT  ,  "3",  "Update  Fixture  Data" 

5165  PRINT 

jPO  PRINT  .  ’4". "Update  Lamp  Data" 

51 "5  PRINT 


vwu-*u-w't-*s/'Fv-wu'*v**j*  c-»  vw*  vrv»  v*v»vT*w'»\rwi/,»VTtfn\fniii'.«nup.u«.u» 


5130  PRINT 

5135  FRINT  , "5". "RETURN  TO  MENU  --  lP 
5190  PRINT  : PRINT  iPRINT  : PRINT 

5195  INPUT  rl  Please  enter  selected  Procedure.  B 

5200  REM 

5205  ON  B  bOSUB  29100,30100.32100,34100,5215 

5210  GOTO  5100 

5215  GOTO  4100 

5220  REM 

5225  REM 

6100  REM  ****♦*♦**♦**+***♦♦  MENU  —  C3  (HARDCOPY)  *♦**♦*+*♦********************* 

6105  REM 

6110  REM 

6115  CL3 

6120  PRINT 

al'5  PRINT  TAB  (35)  “MENU  -  03" 

6130  PRINT  TAB (36)  "HARDCOPY" 

6135  PRINT  : PRINT  : PR I NT 

6140  PRINT  TAB (20)  "TYPE";  TAB (40)  "PROCEDURE" 

6145  PRINT  ; PR I NT 

el50  PRINT  TAB (22!  "1";  TAB (40)  "AFP  88-15  PC  Levels" 

6155  PRINT 

6160  PRINT  TAB '22)  "2":  TAB(40)  "Color  Chart" 

6165  PRINT 

sl70  PRINT  TAB (22)  "3";  TAB (40)  "Fixture  Choices" 

6175  FRINT 

6130  PRINT  TAB (22)  "4";  TAB (40)  "Lamp  Choices” 

6185  PRINT 

6190  PRINT  TAB (22)  "5";  TAB(40'  "Specific  CU  Tables" 

6195  PRINT  iPRINT 

6200  PRINT  TAB '22'  "6":  TAB (40)  "RETURN  TO  MENU  —  Cl" 

6205  PRINT  : PRINT 

6710  INPUT  "  Please  enter  selected  procedure.  ",  B 

6215  REM 

622 11  ON  5  G0SU6  341,X,.551,?0.5"’!00, 53100. r"!'T',j27": 

j225  GOTO  oil ) 

a23o  GGTO  410U 

6235  REM 

6240  REM 

29100  REM  *♦***♦**♦♦**+♦***♦  UPDATE  AFR  88-15  FC  LEVELS  **♦♦♦*++♦♦******♦♦•♦♦♦♦♦ 
29105  REM 
291 10  REM 

29115  CLS  : PRINT  .-PRINT  ;PRINT  iPRINT 

29120  PRINT  TAB (27)  'UPDATA  AFR  53-15  FC  LEVELS" 

29125  FRINT  : PRINT 

29130  PRINT  TABUS)  "This  procedure  allows  you  to  change  the  APR  58-13" 

29135  PRINT  TAB' 15)  "FC  ievels  currently  in  memorv  and  on  disk." 

29140  PRINT  .-PRINT 

29145  FRINT  TAB ( 15>  "Enter  (1)  to  continue,  or" 

29150  PRINT  TABUS)  "  <2)  tc  return  to  menu” 

29155  INPUT  "  B 

29160  IF  3=2  THEN  RETURN 
29165  8=1  ; C=0 
29170  CLS 

2?r5  PRINT  tabus;  "ROOM  TYPE”:  TAB(30)  "ROOM  USE":  TAB (60 1  "FC  LEVEL" 

29130  PRINT 

29185  FOR  A=B  TO  (B+ll) 

29190  PRINT  TAB (18)  A:  TAB (30)  RMUSE$(A);  TAB (63)  RMUSELEVEL (A) 

19195  NEXT  A 
292(h)  PRINT 

29205  PRINT  TAB » 18'  (B-12:;  TAB 1 30/  "OTHER" 

29210  PRINT  : PRINT  : PRINT  TABUS) 

29215  INPUT  "To  change  information,  enter  TYPE  I  or  (0)  to  quit.  ”,  PMTYF'E 

29220  IF  RMTYPE  =  0  THEN  29345 

.922s  iP  AMT i F E  (6+1/  hNB  RMTiF'E  B+l.)  THEN  2"2ou 


30230  IF  REFTYPE  >  31  THEN  30390 
30235  IF  B=le  THEN  B=!  ELSE  30245 
30240  SOTO  30170 
30245  8=B+15  :  GOTO  30170 
30250  REM 

30255  CL5  : PRINT  ; PRINT 

30260  PRINT  TAB(19>  "Enter  the  foliowinq  information  to  replace" 

30265  PRINT  TAB! 19)  "the  reflectance  data  for  TYPE  4  REFTYPE 
30270  PRINT  :PRINT 

30275  INPUT  “  Paint  Manufacturer:  PMAN$ 

30280  PTMANt (REFTYPE) =PMANt  : PRINT 

30235  INPUT  "  Paint  Color:  PCOLDRt 

30290  PTCOLOM (REFTYPE)  =PCOLGR$  : PRINT 

30295  INPUT  "  Reflectance  ino  decimal):  PREFL 

30300  PTREFL < REFTYPE ) =PREFL 

30305  PRINT  : PRINT  : PRINT 

30310  INPUT  "  I  a  evervthinq  correct  iY/N)  ”:  Bt 

30315  IF  B*=”N"  OR  B$=l,n''  THEN  30325 
30320  GOTO  30165 

30325  PRINT  :PRINT  : PRINT  :PRINT  TAB i 10; ; 

30330  INPUT  "Please  enter  correct  information,  press  RETURN-  when  ready.",  Bt 
30335  GOTO  30255 
T:rao  REM 

30345  as  : PRINT  : PRINT  j PRINT  :i»INT  : PRINT 
30350  PRINT  TAB(23)  "SAVING  NEW  INFORMATION" 

30355  REM 

30360  OPEN  "0",  #1,  "A: REFLECTS. DAT" 

30365  FOR  A=1  TO  30 

30370  WRITE41,  PTMAN$iA) ,  PTC0L0P**A),  PTREFL -A) 

30375  NEXT  A 
30380  CLOSE  41 
3:385  RETURN 
30390  PRINT  :PRINT 

303c5  INPUT  “  Invalid  entry.  aress  RETURN;  to  trv  aqain.  Bt 
70400  GOTO  701s5 
77405  REM 
70410  REM 

'2100  REM  ♦********+***♦♦♦«*  UPDATF  FIXTURE  CIL£S  ***♦***#*♦♦♦*♦*****♦♦*♦♦♦♦*♦* 
32105  REM 
32110  REM 

32115  CLS  : PRINT  .-PRINT  :PRINT  : PRINT 
32120  PRINT  TAB (30)  "UPDATE  FIXTURE  FILES" 

72122  PRINT  -PRINT 

32130  PRINT  TAB' 16)  "This  procedure  allows  you  to  chanqe  the  future” 

32135  PRINT  TAB! 16)  "data  currently  in  memory  and  on  dist." 

72140  PRINT  : PRINT 

72145  PRINT  TAB (16)  “Enter  (1)  to  continue,  or" 

32150  PRINT  TAB (16)  “  !2)  to  return  to  menu. 11 

32155  INPUT  "  B 

32160  IF  6=2  THEN  RETURN 

32165  CLS 

72170  PRINT  : PRINT 

32175  PRINT  TAB (30)  "UPDATE  FIXTURE  FILES" 

72180  PRINT  : PRINT  : PRINT 

32185  PRINT  TAB (20)  "CHOICE";  TAB(40)  "FIXTURE  TYPE" 

32190  PRINT  : PRINT 
32195  FOR  A=1  TO  5 

32200  PRINT  TAB122)  A;  TAB (40)  SOURCE$(A,li;  TAB!62)  SOURCE! (A, 2) 

32205  NEXT  A 
32210  PRINT  : PRINT 
72215  'PINT 

72220  PRINT  TAB (22)  A:  TAB (40)  "RETURN  TO  MENU  --  C2" 

32225  PRINT  .-PRINT  : PRINT 

7223'J  INPUT  "  _  __  _Enter_CHOICE  It  for  future  selection:  ”,  FT 

31,. 35  IF  rT  1  OR  FT  a  GOTO  3306V 


I 

I 

) 

I 


REM 

:f  =  3  then  :: 
-in 


FPINT  TAB >21  "UPDATE  FIXTLfE  FILES:  rOLFCE* iFT,  l  ■ ;  -  Fi  :tures“ 

PRINT  ;PFiNT 

'BINT  "CHOICE'S  TAB'  12'  ‘RILE  TAB.:D  "MAKE";  TAB  O')  ’MODEL  4"; 
PRINT  TABOO  "MAINT.'s  TAB: 64 i  "DIET.  ';  TAB 04  "S/1H" 

PRINT  TAB' 50'  "CATEGORY":  TAB ' o4 i  "TrFE‘ 

PRINT 

FjR  A=1  TO  10 

PRINT  TAB  (3>  A;  TAB  -  :2>  FCOBEt.FT.A,  0;  TAB!  23)  FCQBEiiFT.A.Z) ; 

PRINT  TABOTf  FCQDE*  FT.A.3. :  TAB 03)  FCOBE* ■- FT ,  A . 4 ) ; 

PRINT  TAB  a5'  FI -<TDATA*FT. A. 2’ :  TAB '’4-  FIXTDATA.FT.A.D 
NE<T  A 
PRINT  :p&irjT 

INPUT  1  To  charge  fixture  data,  an ter  CHOICE  *  or  >0)  to  quit:  ", 

if  <jz  -  o  60to_:::oS 

F  -2  "  jR  Pc  I ' 1  ROT' ' 

REN 

REM 


3c;»jt  .:c;v 

:'RINT  TABIZO'  "UPDATE  FIXTURE  FLEE: 
PRINT  ;:RINI  :?"!NT 
PRINT  "  Enter  the  followirq  data: 
PRINT  ; PRINT  : PRINT 


;GURCEt  FT, 


:nfut  1 

PR  INT 
INPUT  " 
PRINT 
INPUT  " 


P i :tjre  Mare: 


PCODEi'FT.FC.: 


Pi  tare  Moael: 


'CODE* '.FT.  PC,  3) 


:ure  a  E.mh  Ratio: 


FI  iTDATA'FT.FC. 1 


PRINT  : F R I N ” 

PRINT  TAB '10 i  "Update  Future  Files:  SOURCE* 'FT, l ; :  "  Futures" 

PRINT  : PRINT 

PRINT  TAB(lO)  "You  nave  chosen:'' 

PRINT 

PRINT  tab  'P;  tare  "ate:':  7AB>:5/  PZCDEs ■  FT. PC. ;i 
PRINT 

PRINT  TAB 'ZD*  “Fi.ture  Model:";  TAB >55)  FC0BE$<PT.FC,3) 

PRINT 

PRINT  TAR  TO)  "Future  s  Maintenance  Catenorv: TAc55i  FCODE*  > FT .  FC .  4 
PRINT 

PRINT  TABiZO'  “Future's  Distribution  Type:’’:  TAB>55i  PI XTDATA (FT , FC, ZT 
PRINT 

PRINT  TABiZO)  "Fi.ture  s  S  HH  Ratio:  TAB(55'>  F I xTDATA vFT, FC.  1  > 

PRINT  : PRINT 

INPUT  "  Is  everything  correct  (Y/N)  Bt 

IF  Bt="N”  GR  B!=”n"  GOTO  3Z555 

PRINT 

PRINT 

INPUT  "  Now  enter  CU  chart  values,  press  RETURN'  when  ready. 

IF  FT=I  THEN  GOSUB  36100 

IF  FT=Z  THEN  GOSUB  36100 

IF  FT =3  THEN  GOSUB  37100 


IF  FT-5  THEN  GOSUB  37100 

GOTO  32530 

-HINT 

. . J i  -lease  ; e-enter  aata.  u 


-l  Lrit  wren  .'esc . . 


32535  PRINT  : PRINT  : PRINT  : PRINT  : PRINT  : PRINT 
32590  PRINT  TAB <34 >  "SAVING  DATA" 

325*5  REM 

32600  IF  FT=1  THEN  32625 

32605  IF  FT=2  THEN  32680 

32ol0  IF  FT =3  THEN  32820 

32615  IF  FT=4  THEN  32875 

32620  IF  FT=5  THEN  32930 

32625  IF  FC=1  THEN  OPEN  "0".  11.  "A: INCU1.DAT" 

32630  IF  FC=2  THEN  OPO^  "0".  41.  "A: INCU2.DAT" 

32635  IF  FC=3  THEN  OPEN  "0".  #1.  "A: INCU3.DAT" 

32640  IF  r C=4  THEN  OPEN  "0",  #1.  "A: INCU4. DAT" 

32645  IF  FC=5  THEN  OPEN  "0".  41.  "A: INCU5.DAT" 

32650  IF  FC=6  THEN  OPEN  "0",  #1,  "A: INCU6.DAT" 

32655  IF  FC=7  THEN  OPEN  "0".  41.  "A: INCU7.DAT" 

32660  IF  FC=3  THEN  OPEN  "0".  41,  "A: INCU8.DAT" 

32&65  IF  FC=Q  THEN  OPEN  "0".  #1,  “A: INCU9.DAT" 

32670  IF  FC=10  THEN  OPEN  "0\  #1.  "A: INCU10.DAT 
326*5  GOTO  32735 

32630  IF  FC=1  THEN  OPEN  "O".  #1.  "ArFLCUi . DAT " 

32685  IF  FC=2  THEN  OPEN  "0",  41.  “A; FLCU2.DAT" 

32690  IF  FC=3  THEM  OPEN  "C",  #1,  "A: FLCU3.DAT" 

326*5  IF  FC=4  THEN  OPEN  "0",  41,  "A: FLCU4.DAT" 

32700  IF  FC=5  THEN  OPEN  "0".  41,  "A: FLCU5.DAT" 

32705  IF  FC=e  THEN  CFEN  "0",  41,  "A: FLCU6.DAT" 

32710  IF  FC=7  THEN  OPEN  "Q".  41,  “A: FLCU7.DAT1' 

32715  IF  FC=8  THEN  OPEN  "0",  41,  "A:FLCU8,DAT" 

32720  IF  PC=*  THEN  OPEN  "Q".  41,  "A.-FLCIRDAT" 

32725  IF  FC=10  THEN  OPEN  "0",  41,  "A:FLCU10.DAT 
32730  ''EM 
*2*35  FOR  D=1  T0  2 

32745  FOP  6=1  TO  10 
32750  WRITE41,  CUKB.C.D) 

32755  NEXT  8 
32760  NEXT  2 
32765  NEXT  D 
327*0  FOP  D=1  TO  2 
3I775  *0P  0=1  TO  3 
32780  FOR  B=l  TO  10 
32735  WRITE41,  CU2(B,C,D> 

327?0  NEXT  B 
32795  NEXT  C 
32300  NEXT  D 
32805  CLOSE  41 
32810  GOTO  32165 
32815  REM 

32820  IF  FC=1  THEN  OPEN  "G”,  41,  “A: MVCU1.DAT" 

32325  IF  FC=2  THEN  OPEN  "0",  41,  "A:MVCU2.DAT" 

32830  IF  FC=3  THEN  OPEN  "0".  41,  "A: MVCU3. BAT" 

32835  IF  FC=4  THEN  OPEN  "0",  41,  "A: MVCU4 . DAT" 

32340  IF  FC=5  THEN  OPEN  "0",  41,  "A:MVCU5.DAT" 

32845  IF  FC=6  THEN  OPEN  "0",  41,  "A:MVCU6. DAT" 

32850  IF  FC=7  THEN  OFEN  "0",  41,  "A: MVCU7.DAT” 

32855  IF  FC=8  THEN  OPEN  "0",  41,  "A.-MVCU8.  DAT" 

32360  IF  FC=9  THEN  OFEN  "0",  41,  "A:MVCU9.DAT" 

32365  IF  FC=!0  THEN  OPEN  ”0",  m  "AsI1VCU10.DAT 
32870  GOTO  32985 

32875  IF  FOl  THEN  OFEN  "0",  41,  "A: MHCUi.DAT" 

32880  IF  FC=2  THEN  OPEN  "0”,  41,  "A:MHCU2. DAT" 

32285  IF  ,-C=3  THEM  OFEN  "0",  41,  "A: MHDJ3.DAT" 


32390  IF  FC=4  THEN  OPEN  "0",  41,  "S:  MHCU4.DAT" 

72395  IF  FC=5  THEN  OPEN  "0",  41,  "A: MHCU5.DAT" 

32900  IF  -C=6  THEN  OPEN  “0”.  #t,  "A: MHCU6.DAT " 

32905  IF  f;>7  THEN  OPEN  "0",  41,  "A: MHCU7.DAT" 

:i-;0  IF  FC-6  THEN  OPEN  -o*.  41,  :,A:MHCU8.DAr 

32515  IF  FC=5  THEN  OPEN  ”0",  41,  nA:MHCU9.DAT“ 

32920  IF  FC=10  THEN  OPEN  “0",  41,  ’* A : MHCU 1 0 . DAT ” 

325  ""O  GOTO  3n9S5 

32930  IF  FC=1  THEN  OPEN  "O'1,  #1,  "AiHPCUl.DAT" 

32935  IF  FC=2  THEN  OPEN  "0“,  #1,  "A:HPCU2. DAT" 

32940  IF  FC=3  THEN  OPEN  “0“,  II,  "A: HPCU3.DAT" 

32945  IF  FC=4  THEN  OPEN  "0".  #1,  "A:HPCU4. DAT" 

32950  IF  FC=5  THEN  OPEN  "0‘.  #1.  "A: HPCU5.DAT” 

32955  IF  FC=S  THEN  OPEN  "0",  41,  "A: HPCU6.DAT'1 

32960  IF  FC=~  THEM  'OPEN  "0".  #1.  “A:HPCU7.DAT" 

32965  IF  FC=8  THEN  OPEN  "0".  41,  "A: HPCU8.DAT" 

329 ’0  IF  FC=9  THEN  OPEN  "0",  41,  "h:HPCU9.DAT" 

32975  IF  FC=10  THEN  OPEN  "0",  41.  "AsHPCU10.DAT” 

32980  REM 
32c35  FOR  C=1  TO  4 
32990  FOR  5=1  TO  10 
32995  NRITE41,  0J3(B,C, 1> 

33‘Viy  NEXT  5 
33' 05  NEXT  C 
33010  FOR  D=1  TO  2 
33015  FOR  C=1  TO  3 
33020  FOR  B=1  TO  10 
33025  WRITEI1,  C'J4<B.C,D> 

33030  NETT  5 
33035  NEXT  C 
33040  NEXT  D 
33045  REM 
33050  CLOSE  41 
33055  GOTO  32260 
33060  5RINT  : PRINT 

33165  INPUT  1  invalid  antrv,  press  FETLF.N  :c  Main.  r* 

33070  GOTO  32165 
33075  PEN 

33080  OPEN  "0",  41,  "A: FI XTDATA. DAT" 

33085  FOR  A=[  TO  5 
33090  FOR  B=1  TO  10 

33095  WRITE41.  FCCDEKA.B,  1) ,  FC0DEKA.B.2) .  FC0DE$(A,B.3),  FCCDE* (A.B.4> 

33100  WRITE41.  FI XTDATA < A. B, 1 > ,  FI XTDATA ' A, B. 2 ) 

33105  NEXT  B 
33110  NEXT  A 
33115  CLOSE  41 
33120  REN 
33125  RETURN 
33130  FEM 
331  35  SEN 

34100  REM  *♦****♦**♦*♦♦**♦**  UPDATE  LAMP'  FILES  **♦♦•♦♦♦♦♦**♦♦•**#**♦♦♦♦♦♦*♦♦♦** 
34105  REM 
34110  REM 

34115  CL3  : PRINT  :PPINT  :PR1NT  :PRINT 
34120  PRINT  TAB<31)  "UPDATE  LAMP  FILES” 

34125  PRINT  :PPINT 

34130  PRINT  TAB <  18>  “This  procedure  allows  you  to  change  the  law" 

34135  PRINT  TAB X 13)  "data  currently  in  ntenory  and  on  disl . " 

34140  PRINT  : PR  I NT 

34145  PRINT  TAB X 18)  "Enter  (U  to  continue,  or" 

34150  PRINT  TAB <  13)  "  2  to  t eturr.  to  «enu. " 

34155  INPUT  “  ■;  r 

34160  IF  B=2  THEN  RETURN 


74 1 '5  -9INT  TAB (32)  "UPDATE  LAMP  PILES" 

74 ISO  FFINT  : PRINT  : PRINT 

74105  FEINT  TAB1' 20)  "CHOICE";  TAB-40..  "LAMP  TVPE" 

741'50  PRINT  : PRINT 
74195  r0R  A=1  TO  5 

74200  FEINT  TAB-22)  A;  TAB (40)  SOURCE* 'A, 1);  TAB (62)  SOURCE* (A, 2! 

74205  NEXT  A 
74210  PRINT  .-PRINT 

74215  PRINT  TAB (22)  A;  TAB (40)  "STORE  DATA  CHANGES" 

34220  PRINT 

74225  PRINT  TAB (22)  A+l;  TAB (40)  "RETURN  TO  MENU  -  02“ 

34230  PRINT  ; PRINT  : PRINT 

34235  INPUT  "  Enter  CHOICE  *  tor  lamp  selection:  ",  LT 

34240  IF  LT  (  1  OR  LT  >  ?  GOTO  34520 

34245  IF  LT  =  6  GOTO  74460 

34250  IF  LT  =  7  THEM  RETURN 

74255  REM 

34260  REM 

~*4n6j  ^LS 

7427)  PRINT  TAB (21)  "UPDATE  LAMP  FILES:  ":  SOURCE* 'LT. 1) ;  -  Lamps" 

34275  FEINT  : PRINT 

342S0  PRINT  TAB'S)  “CHOICE":  TAB-11?)  "FILE  TAB (31)  "CODE"; 

74285  PRINT  TAB (43)  "WATTS";  TAB-55)  "INITIAL";  TAB - 68 >  "MAINT." 

74290  F5!NT  TAB-55'  "LUMENS":  TAB-sSj  ■'LUMENS'' 

34295  PRINT 
34300  F'jR  A=1  TO  10 

34305  PRINT  TAB (10)  A;  TABU?)  LCODEKLT, A.  1) ;  TAB(30)  LCODE* (LT.A.2) : 

34310  PRINT  TAB (43)  LAMPDATA (LT, A. 1 ) :  TAB (55)  LAMPDATA (LT, A, 2) ; 

34315  PRINT  TAB  *  68)  LAMPDATA <LT, A. 3) 

34320  NEXT  A 
34325  PRINT  :PRINT 

74330  INPUT  11  To  change  lamp  data,  enter  CHOICE  4  or  0)  to  quit:  ^2 

34335  IF  LC  =  0  GOTO  34165 

74340  IF  LC  '  0  OP  LC  10  GOTO  34520 

74745  REM 

34350  ;E11 

74355  CL 3 

74360  PRINT  : PRINT 

34365  PRINT  TABt21)  "Update  Lamp  Files:  SOURCE* (LT, 1 ; ;  "  Lamps" 

34370  PRINT  :PRINT 

34375  INPUT  "  Enter  Lamp  Code:  LCODE* (LT. LC. 2) 

34380  PRINT 

74335  INPUT  “  Enter  Lamp  Watts:  LAMPDATA (LT. LC, 1) 

34390  PRINT 

34395  INPUT  “  Enter  Lamp's  Initial  Lumens:  LAMPDATA (LT.LC, 2! 

34400  PRINT 

34405  INPUT  "  Enter  Lamp's  Maintained  Lumens:  LAMPDATA (LT, LC, 3> 

34410  PRINT  : PRINT 

34415  INPUT  "  Is  everything  correct  (Y/'N)  B* 

34420  IF  Bt="N"  OR  B*="n"'GOTO  34435 

34425  IP  LAMPDATA  (LT.LC,  2)  <,  LAMPDATA  (LT.LC,  3)  THEN  34535 

74430  GOTO  34265 

34435  PRINT 

34440  INPUT  "  Please  re-enter  data,  oress  -RETURN  when  ready.  ",  B* 

34445  GOTO  34355 

34450  REM 

34455  REM 

34460  CLS 

34465  PRINT  iPRINT  :PRINT  : PRINT  :PRINT 
34470  PRINT  TAB<34)  "SAVING  DATA" 

74475  OPEN  '0”,  41.  "A: LAMPDATA. DAT" 

74480  FOR  A-l  TO  5 
34485  FOR  B=1  TO  10 

34450  WRITE#!,  LCODE* i A. 6,1:,  LCODE* (A, B, 2) 

.44r5  «RI  ,Z#i,  wnMPDATAm.B,  it,  lmiMFCATh m, c, 2  ,  LnMFDwTr'\A,B,70 


,1 

*7 


5 


34500 
34505 
34510 
34515 
34520 
34525 
j45o0 
34535 
34540 
34545 
34550 
34555 
34560 
34565 
36100 
36105 
36110 
36115 
To  120 
3ol25 
36130 
36135 
T£,lin 
36145 
36150 
3ol55 

36156 

36157 
36153 
3615? 
36160 
36165 
36170 
761 '5 
76130 
76135 
3oi?C 
36195 
36200 
36205 
36210 
36215 
76220 

"~L  '5'^c 
j 

76230 

-•O.L,  .  J 

76240 

76245 

36250 

T/ncc 

36260 

36265 

36270 

’6275 

76260 

76235 

36290 

36295 

36300 

36305 

76310 

36315 

3632t3 

76325 


NEXT  B 
NEXT  A 
CLOSE  *1 
SOTO  341o5 
PRINT  : PRINT 

INPUT  “  Invalid  entry,  press  RETURN,  to  try  again.  ",  B$ 

GOTO  34165 
PRINT  : PRINT 

PRINT  "  Initial  lumens  must  be  greater  than  maintained  lumens." 

PRINT 

INPUT  "  Please  re-enter  data,  press  RETURN)  when  ready.  ",  8$ 

GOTO  34355 

REM 

REM 

REM  ****+**»**********  CU  RHART  INP'U’  ********♦♦«***************♦♦■»■■»**+■*+ 

REM  FOR  INCANDESCENT  AND  FLUORESCENT  FIXTURES 

SEM 

REM 

CL5 

PRINT  : PRINT  : PRINT  : PRINT  : PRINT 
PRINT  TAB  *  8) ; 

PRINT  "You  will  be  given  reflectance  values  tor  the  floor,  the  ceiling," 

PR I NT 

F 4 I UT  "and  tne  wall.  Enter  the  appropriate  CU  value  *hat  corresponds" 
PRINT  TAB (8); 

PRINT  "to  these  values  and  to  the  RCR  value  that  is  shown  (no  decimal)." 
PRINT  TAB'S); 

PRINT  “If  the  CU  value  is  not  tnown,  either  enter  'O'  or  do  manual1 
FRINT  TAB (3); 

PRINT  "extrapolation  and  enter  value." 

PRINT  : PRINT 

INPUT  "  Press  RETURN;  wnen  ready.  5» 

REM 

FOR  C=1  T0  : 

-HR  3=1  Th  4 


>•/  II 
II «  II 


PRINT  TAB (25;  "Floor  Reflectance  =  IFR'.Z1; 

PRINT  TAB (25;  "Ceiling  Reflectance  *  ’:  CCR'C'i 

PRINT  TAB (25)  "Wail  Reflectance  =  CWRiB);  "2" 

PRINT  : PRINT  :FRINT 

PRINT  TAB (20)  "For  RCR  of:  TAB!40)  "Enter  CU  value:” 

PRINT 

FCR  A  =  1  TO  to 
FRINT  TAB >24)  A:  TAB (46) 

INPUT  DJI (A,B,C) 

NEXT  A 

PRINT  : PR  I NT 

INPUT  "  Is  everything  OK  so  far  (Y/N)  B$ 

IF  BJ="N"  OR  B*=“n"' THEN  36600 
NEXT  B 
NEXT  C 
REM 

FOR  C=1  TO  2 
FOR  B=1  TO  3 

as 

PRINT  TAB (25)  "Floor  Reflectance  =  ":  CFR(2):  "2" 

PRINT  TAB(25)  "Ceiling  Reflectance  =  CCR(C+2);  "7." 

PRINT  TAB (25)  "Wall  Reflectance  =  "i  CWRIB+l);  "7." 

PRINT  : PRINT  :PRINT 

PRINT  TAB (20)  "For  RCR  of:  TAB(40)  "Enter  CU  value:" 

PRINT 

FOR  A  =  1  TO  10 

PRINT  TAB (24)  A:  TAB(46!  "*; 

INPUT  CU2(A.B.C, 
nEaT  m 


PRINT  ; PRINT 

INPUT  "  Is  evervthinq  OK  so  Tar  • /  N>  Bt 

IF  8t=“N“  OR  8$=“n“  THEN "36620 

NEXT  B 

NEXT  C 

REM 

CLS 

PRINT  TAB (15); 

PRINT  "Here  is  your  CU  chart  Tor  Fixture  File  4  FCODEt(FT,FC, 1) 

PRINT 

PRINT  "FIXTURE  MAKE:  FC0DEt(FT,FC,2>; 

PRINT  TAB i45)  "FIXTURE  MODEL:  FC0CE$!FT,FC,3) 

PRINT  : PRINT 

PRINT  TAEHji  “CFR":  TAB(46)  CFR(2) 

PRINT  TAB (5)  “CCR":  TAB'18)  CCR < 1 > ;  TAB (37)  CCR(2); 

PRINT  TAB (54)  CCRC35 ;  TAB(69)  CCR(4) 

REM 

PRINT  TAB (5)  “CWR"; 

PRINT  TAB (12)  CWR(l);  CNR(2):  CWRX3);  CWRt4':; 

PRINT  TAB  (31)  CWR  ID;  CWR(2);  CWR  (3);  CWR  (4*; 

PRINT  TAB (50;  CWR (2) ;  CWR<3);  CWP(4); 

PRINT  TA8(65)  CWR(2);  CWR'4i;  CWR!4) 

PRINT 

REM 

PRINT  TAB  (5)  "RCF;" 

-  REM 

FOR  A=1  TO  10 
PRINT  TAB  (5)  A; 

:  PRINT  TAB (12) 
i  FOR  8=1  TO  4 
.  PRINT  CUKA.B.l); 
i  NEXT  3 
!  PRINT  TAB (31) 
i  FOR  6=1  TO  4 
:  PRINT  GUI :A.B,2‘: 

NEXT  3 

;  PRINT  TAB (50) 
i  FOR  B=1  TO  3 
,  PRINT  CU2(A,B, 1); 
i  NEXT  B 
,  PRINT  TAB (65) 
i  FOR  B=1  TO  2 
i  PRINT  CU2 (A, B, 2) : 
i  NEXT  B 

I  PRINT  CU2(A,3,2) 

)  NEXT  A 
i  PRINT 

)  INPUT  "Is  evervthinq  correct  (Y/N)  Bt 
i  IF  B$="N"  OR  Bi="n"  THEN  36535 
)  RETURN 

i  PRINT  "Please  re-enter  all  CU  data  for  this  feature, 

)  INPUT  "press  < RETURN >  when  ready.  ",  Bt 
i  GOTO  36120 
)  REM 
i  PRINT 

)  INPUT  "  Please  re-enter  data,  press  'RETURN--  when  ready.  “.  Bt 

5  GOTO  36185 
)  REM 
5  PRINT 

)  INPUT  "  Please  re-enter  data,  press  \RETURN>  when  ready.  ",  Bt 

5  GOTO  36280 

)  REM  *♦***♦*♦*****♦♦♦**  CU  CHART  INPUT  ************************************ 
j  REM  FOR  MERCURY  VAF'OR,  METAL  HALIDE  &  HPS  FIXTURES 

)  REM 

j  REN 


s''.  ■ 


37120  CLS 

37125  PRINT  sPRINT  : PRINT  :PRINT  : PRINT 
37130  PRINT  TAB (3); 

37135  PRINT  ''/ou  will  be  given  reflectance  values  Tor  the  floor,  the  ceiling 
37140  PRINT  TAB  IS); 

37145  PRINT  "and  the  wall.  Enter  the  appropriate  CU  value  that  corresponds" 
37150  PRINT  TAB (8); 

37155  PRINT  "to  these  values  and  to  the  RCR  value  that  is  shown  (no  decimal) 

37156  PRINT  TAB (3) i 

37157  PRINT  “If  the  CU  value  is  not  known,  either  enter  ‘O'  or  do  manual" 

37158  PRINT  TAB (3); 

37159  PRINT  "extrapolation  and  enter  value." 

37160  PRINT  -.PRINT 

37165  INPUT  "  Press  RETURN)  when  ready.  *,  B$ 

37170  REN 

37175  FOR  B=1  TO  4 
37130  CLS 

37185  PRINT  TABI25)  “Floor  Reflectance  =  CFR(2); 

37190  PRINT  TABC5)  “Ceiling  Reflectance  =  CCR(l);  "1;" 

37195  PRINT  TAB (25)  "Wall  '  Reflectance  =  CWR(B);  "7.“ 

37200  PRINT  .-PRINT  : PRINT 

37205  PRINT  TAB (20)  "For  RCR  of:  TAB (40)  "Enter  CU  value:" 

37210  PRINT 

37215  FOR  A  =  1  to  10 

37220  PRINT  TA8(24)  Aj  TAB(46) 

37225  INPUT  CU3(A,B,li 
37230  NEXT  A 
37235  PRINT  i PRINT 

37240  INPUT  "  Is  evervthinq  OK  so  far  (V-'Ni  B$ 

37245  IF  B$="N"  OR  B$=“n"’  THEN ’37575 
37250  NEXT  B 
37255  REN 
37260  D=2 

37262  FOR  C=1  TO  2 
3"2'f>  FOR  S=1  TO  7 
37275  CLS 

37220  PRINT  TAB' 25!  "Floor  Reflectance  =  CFR(2): 

37235  PRINT  TAB (25)  "Ceiling  Reflectance  =  CCR'Cn/);  "X" 

37290  PRINT  TAB (25)  "Wall  Reflectance  =  CWR(B+1);  “X" 

37295  PRINT  :PRINT  : PRINT 

37300  PRINT  TAB(20)  "For  RCR  of:  TAB (40)  "Enter  CU  value:" 

37305  PRINT 

37310  FOR  A  =  1  TO  10 

37315  PRINT  TAB(24)  A;  TAB (46) 

37320  INPUT  CU4(A,B,C) 

37325  NEXT  A 
37330  PRINT  : PRINT 

37335  INPUT  "  Is  everything  OK  so  far  ( Y/N)  Bt 

37340  IF  B$="N"  OR  B$="n"  THEN  37595 

37345  NEXT  B 

37350  D=3 

37355  NEXT  C 

37360  REM 

37365  CLS 

37370  PRINT  TABUS); 

37375  PRINT  "Here  is  your  CU  chart  for  Fixture  File  I  FCODE* (FT, FC, 1) 
37380  PRINT 

37385  PRINT  "FIXTURE  MAKE:  FCDDEf (FT, FC, 2) : 

37390  PRINT  TABUS)  "FIXTURE  MODEL:  FC0DE*<FT,FC.3> 

37395  PRINT  iPRINT 

37400  PRINT  TABiiO;  "CFR";  TAB (36)  CFR-2) 

37405  PRINT  TAB(IO)  “CCR“;  TAB'26)  CCR(l);  TAB ( 44 )  CCRI3) ; 

37410  PRINT  TAB (60)  CCR(5) 

37415  REM 


PRINT  TAB (20)  CUR'D}  CWR'2);  CWR'3);  CWRi4< j 
PRINT  TAB (40)  CWftiZ);  CKft'3):  C«R<4>; 

C‘R  I  NT  TABS 56 >  CWF'(2);  CHR(4»;  CWR‘4> 

PRINT 

PEN 

PRINT  TAB  i  lO.i  "RCF:" 

REM 

FOR  A=1  TO  10 
PRINT  TAB (10)  A; 

PRINT  TAB (20) 

POP  B=1  TO  4 
PRINT  CU3 (A, B, 1 ) ; 

NEXT  B 

PRINT  TAB (40) 

FOR  8=1  TO  3 
PRINT  CU4(A,B, 1) ; 

NEXT  B 

PRINT  TAB (56) 

FOR’  6=1  TO  2 
FRINT  CU4 ( A. B, 2) ; 

NEXT  B 

PRINT  CU4-A.3.2) 

NEXT  A 
PRINT 

INf'UT  "Is  evervthinq  correct  •  Y / N >  Bt 
IF  B*="N"  OR  B*="n"  'THEN  3~3o0 
RETURN 

PRINT  “Please  re-enter  all  C'J  data  for  this  fi-ture, 

INF'UT  “press  •  RETURN  when  ready.  ",  B$ 

GOTO  37120 

REM 

PRINT 

INPUT  "  Please  re-enter  data,  press  RETURN  when  ready. 

GOTO  37iS0 
“CM 

PRINT 

INPUT  “  ;lease  "e-enter  data,  press  PETUPN  when  "eao'. .  ",  3t 

GOTO  372’’5 

REM  *+***♦**♦♦♦***  MAINTENANCE  CATEGORIES  *♦*♦*******♦♦♦**♦***♦♦♦*+***♦*** 

REM 

REM 

CIS 

PRINT  : PRINT 

FRINT  TAB (30)  “MAINTENANCE  CATEGORIES'1 
PRINT  : PRINT  :PPINT 

FRINT  TAB’ 10'  "CHOICE":  TAP  ”5!  "EXAMPLE";  TAB (40)  "MAINTENAfCE": 

PRINT  TAB '60)  "AMOUNT  OF" 

FRINT  TAB (42)  “CATEGORY";  TAB (a')  "WORK" 

FRINT 

FOR  A=1  TO  6 

FRINT  TAB (11)  A;  TAB<27)  (A+6) ;  TAB(45)  MCAT$(A,li:  TAB ’,63)  MCAT*<A,2) 

NEXT  A 

PRINT  : PRINT  : PRINT 

FRINT  "  Enter  CHOICE  I  for  selection,  or" 

INF'UT  "  EXAMPLE  (t  for  e:-;plaination:  B 

IF  B  <  1  OR  B  •  12  THEN  50320 

IF  B  v  7  GOTO  50305 

REM 

CCS 

PRINT  : FRINT 

FRINT  *AB ' 23 ;  MAINTENANCE  CATEGCPv  CAMPLE' 

PRINT 

PRINT  TAB(35)  "CATEGORY  MCAT*(B-6,1) 

PRINT  : FRINT 

PRINT  TiTBilv'  ' TDF  cNCLOoURE: 


-lease  "e-enter  data,  press  RETURN  when  "eac. .  ",  3t 


";  MCATS •  B-t>. h > 


50235  PRINT 
50240  -GR  A=3  TO  5 
50245  PRINT  TAB  1 10*  (A-2*: 

3025u  NEXT  A 
30255  PRINT  :PRINT 
50260  PRINT  TAB (10)  "BGTTGM  ENCLOSURE:" 

50263  PRINT 
50270  FOR  A=6  TO  7 

50275  PRINT  TABUO)  (A-5);  MCAT*(B-6.A! 

50280  NEXT  A 

50235  PRINT  :PRINT  -.PRINT  :PRINT 

5029<I>  INPUT  “  Press  (RETURN'  when  ready  to  continue.  \  B$ 

5)295  GOTO  50115 
50300  REM 

30305  RCQDEiiFT,FC,4)  =  liCATI.B.l) 

50310  RETURN 
30315  REM 
30320  PRINT  :F'RINT 

30325  INPUT  *  Invalid  entry,  press  RETURN  ro  trv  aaa:n.  ”.  B$ 

50330  GOTO  50115 
50335  REM 
50340  REM 

=  11  r*»'i  5£M  ♦♦**4***4***+»**4*  DISTRIBUTION  TYPES  ♦■»*♦♦♦♦♦*♦***♦+♦♦♦***+♦■***♦♦*♦*♦ 

31105  REM 
51110  REM 
51115  CLS 

51120  PRINT  : PRINT 

51125  PRINT  TAB (30)  "FIXTURE  DISTRIBUTION  TYPES” 

51130  PRINT  : PRINT  : F R I NT 

51133  PRINT  TAB (20/  "TYPE":  TAB (30)  "DISTRIBUTION"; 

51140  PRINT  TAB (5D  "7.  UP":  TAB (61?  "v.  DOWN" 

31143  -RINT 
31150  FOR  A=1  TO  5 

51155  F'P  I  NT  -ABCl'  Aj  ”ABCO'  DTYPPt'A,  I; ; 

3 : : 60  «;n:  *ab !!■:*.*  gtyfe^a.:':  *ab'«i  urn* 

311o3  ME.'-T  - 

21^70  PRINT  : PR I NT  : PRINT 

51175  INPUT  "  Enter  TYPE  4  tor  selection:  ",  FI XTDATA ‘FT. FC. 2' 

51180  IF  FIXTDATA(FT,FC,2.'  1  OR  FIX TDAT A ( FT , FC . 2 )  ,  5  THEN  511% 

51185  RETURN 
51190  PR’ I  NT 

511g5  INPUT  "  Invalid  entrv,  press  (RETURN)  to  trv  asam,  ",  B* 

51200  GOTO  51115 
51205  PEM 
51210  REM 

54100  REM  *<*♦***♦♦*♦♦**+**♦*  HARDC0PV  AFR  38-15  INFf)  **♦***♦♦*♦♦*♦♦♦*****♦♦*+♦*♦ 
54105  REM 
54110  PEM 
54115  CLS 

54120  PRINT  TAB X23)  "HARDCOPY  -  AFR  88-15  FC  LEVELS" 

54125  PRINT  :PRINT 

54130  PRINT  TAB (20)  "This  procedure  will  send  the  AFR  38-15" 

54135  PRINT  TAB (20)  "information  on  FC  level  requirements  " 

54140  PRINT  TAB (20)  "stored  in  memory  to  the  printer." 

54145  PRINT  :PRINT 

54150  PRINT  TAB (20)  "Enter  (1)  to  continue, 

54155  PRINT  TAB (20)  "  (2)  to  return  to  Hardcopy  Menu" 

54160  PRINT  TAB (20!  : INPUT  "  B 

54165  IF  8=1  THEN  54180 

34170  IF  E=2  THEN  RETURN 

541 73  GOTO  34113 

54180  PRINT  : PRINT  TAB (12) ; 

54135  INPUT  "Be  sure  your  Printer  is  on,  press  (RETURN/  when  ready.1',  Bi 

541%  PRINT  : PRINT 

34195  F=:r. T  TAB (32)  "PRINTING" 


54200  REM 

54205  LPRINT  : LPRINT 

54210  LPRINT  TAB (28)  "AFR  88-15  FC  REQUIREMENTS" 

54215  LPRINT  : LPRINT 

54220  LPRINT  TABUS)  "ROOM  TYPE":  TAB (30)  "ROOM  USE";  TABUS)  "FC  LEVEL1' 

54225  LPRINT 
54230  FOR  A=1  TO  36 

54235  LPRINT  TAB ( 18)  A;  TAB (30)  RMUSEJiA);  TAB(58)  RHUSELEVEL i A) 

54240  NEXT  A 

54245  PRINT  :PRINT  :PRINT  TAB (12); 

54250  INPUT  "Do  you  want  another  copy  (Y/N)  11 ;  5$ 

54255  IF  B$=“N“  OR  B*="n"  THEN  RETURN 
54260  CL3 

54265  PRINT  :PRINT  :PRINT  : FRINT 
54270  GOTO  54130 

55100  REM  444444444444*44444  HARDCOPY  COLOR  CHART  ♦*♦*+♦*********♦♦**♦***4++**** 
55105  REM 
55110  REM 
55115  CLS 

35120  PRINT  TAB (23)  "HARDCOPr  -  COLOR  CHART" 

55125  PRINT  : PRINT  : PR I NT 

55130  PRINT  TAB (20)  "This  procedure  will  send  the  coior  chart” 

55135  PRINT  TAB (20)  "that  is  stored  in  memory  to  the  printer. " 

55140  PRINT  :PRINT  : PRINT 

55145  PRINT  TAB (20)  "Enter  U'  to  continue, 

55150  PRINT  TAB (20)  “  (2)  to  return  to  Hardcopy  Menu" 

55155  PRINT  TAB (20)  :  INPUT  "  11 ;  B 

55160  IF  B=1  THEN  55175 

55165  IF  E=2  THEN  RETURN 

55170  GOTO  55115 

55175  PRINT  :?RINT  TAB ( 12) ; 

55130  INPUT  "Be  sure  your  Printer  is  on,  press  RETURN  when  ready.''.  5* 

55165  PRINT  : PRINT 

551%  FRINT  TAB  (32)  "PRINTING" 

35195  REM 

35200  LPRINT  ilPRINT 

55205  LPRINT  TAB (28)  “COLOR  CHART  INFORMATION0 
55210  LPRINT  : LPRINT 

55215  LPRINT  TAB (10)  “TYPE  TAB (23)  "BRAND";  TAB (38)  "COLOR"; 

55220  LPRINT  TAB (57)  "REFLECTIVITY" 

55225  LPRINT 
55230  FOR  A=1  TO  30 

55235  LPRINT  TAB (12)  A;  TAB (23)  PTMAN4IA) ;  TAB (38)  PTCCLOR* (A) : 

55240  LPRINT  TAB (60)  PTREFL(A) 

55245  NEXT  A 

55250  PRINT  ;PRINT  iPRINT  TAB (12); 

55255  INPUT  “Do  you  want  another  copy  (Y/N)  B$ 

55260  IF  B*="N“  OR  Bl=”n"  THEN  RETURN 
55265  CLS 

55270  PRINT  :PRINT  :PRINT  : PRINT 
55275  GOTO  55175 

57100  REM  44444444444444444#  HARDCOPY  FIXTURE  CHOICES  *4444444444444444444*44444 
57105  REM 
57110  REM 
57115  CLS 

57120  PRINT  TAB (26)  “HARDCOPY  -  FIXTURE  CHOICES" 

57125  PRINT  :PRINT  :PfiINT 

57130  PRINT  TAB ( 16)  "This  procedure  will  send  a  list  of  the  fixture” 

57135  PRINT  TAB ( 16)  "choices  that  are  stored  in  memory  to  the  printer." 

57140  PRINT  : PRINT  :FRINT 

57145  PRINT  TAB (161  "Enter  U)  to  continue, 

57150  PRINT  TABU6)  "  (2)  to  return  to  Hardcopy  Menu" 

57155  PRINT  TAB (16)  : INPUT  "  ";  B 

57160  IF  B-l  THEN  57175 


ri'v  GOTO  57115 

571 '5  -PINT  : PRINT  TAB1. 12) ; 

57150  INPUT  "Be  sure  vour  Printer  is  on,  press  RETURN  when  ready.".  5* 

57135  PRINT  .-PRINT 

57190  PRINT  TAB (32)  "PRINTING" 

57iQ5  REM 

57200  LPR3NT  TAB (28)  "FIXTURE  CHOICES" 

57205  LPRINT  iLPRINT 
57210  FGR  A=1  TO  5 

57215  LPRINT  TAB (3)  SOURCE* (A. D ;  *  Fixtures" 

57220  LPRINT 

57225  LPRINT  TAB (3)  "FILE  TAB (18)  "MAKE"; 

57230  LPRINT  TAB(31)  "MODEL  #";  TAB (45'  "MAINT, 

57235  LPRINT  TAB (58)  "DIST."j  TAB!68>  "S/MH" 

57240  LPRINT  TAB(44)  "CATEGORY";  TAB^'58)  "TYPE" 

5~245  LPRINT 
57250  FOR  6=1  TO  10 

57255  (.PRINT  TAB'3)  FC0DE*(A.B,1);  TAB (18)  FC0DE*(A,B.2); 

57260  LPRINT  TAB(31)  FC0DE*(A,B.3);  TAB(47)  FC0DE*(A,B.4i ; 

57265  LPRINT  TAB (59)  FIXTDATACA, B. 2> ;  TAB <68)  FIXTDATAiA.B, 1) 

57270  NEXT  B 

57275  LPRINT  : LPRINT  : LPRINT 
57230  IF  A  O  3  THEN  57295 
57285  LPRINT  iLPRINT  ; LPRINT  : LPRINT 
57290  LPRINT  ; LPRINT  : LPRINT  : LPRINT 
=”95 

57300  PRINT  : PRINT  sPRIMT  TAB ( 12) : 

57305  INPUT  "Do  you  want  another  copy  -Y-N)  ";  B* 

57310  IF  B*="N"  OR  B*="n"  THEN  RETURN 
57315  CLS 

57320  PRINT  :PRINT  :PRINT  : PRINT 
57325  GOTO  57175 

58100  REM  ***♦**♦**+*♦*+♦*♦*  HARDCOPY  LAMP  CHOICES  *****♦**♦+**♦♦♦♦■*-»+**♦♦♦+**+♦ 
53105  REM 
3S1 10  REM 
23115  CLS 

53120  PRINT  TAB (29)  "HARDCOPY  --  LAMP  CHOICES" 

53125  PRINT  .-PRINT  ;PPINT 

58130  PRINT  TAB ( 16 1  "This  procedure  will  send  a  list  ot  the  lamp" 

58135  PRINT  TAB (16)  "choices  that  are  stored  in  memory  to  the  printer." 

58140  PRINT  : PRINT  : PRINT 

58145  PRINT  TAB116)  "Enter  (1)  to  continue. 

53150  PRINT  TAB • 16)  "  (2)  to  return  to  Hardcopy  Menu” 

58155  PRINT  TAB (16)  : INPUT  "  B 

53160  IF  B=1  THEN  58175 

581&5  IF  B=2  THEN  RETURN 

53170  GOTO  53115 

53175  PRINT  -.PRINT  TAB!  12): 

58130  INPUT  "Be  sure  vour  Printer  is  on.  press  (RETURN)  when  ready.",  B* 

58185  PRINT  : PRINT 

53190  PRINT  TAB (32)  "PRINTING" 

53 IPS  REM 

58200  LPRINT  TA8(34)  "LAMP  CHOICES" 

58205  LPRINT  : LPRINT 
58210  FOP  A=1  TO  5 

58215  LPRINT  TAB (3)  S0URCE*(A,  1) ;  B  Lamps" 

58220  LPRINT 

58225  LPRINT  TAB (12)  "FILE  I";  TAB(22)  "CODE"; 

58230  LPRINT  TAB(37)  "WATTS";  TAB!48>  "INITIAL”;  TAB (61)  "MAINT." 

58235  LPRINT  TAB (48)  "LUMENS";  TA6(61)  "LUMENS" 

53240  LPRINT 
58245  FGR  B=1  TO  10 

53250  LPRINT  TABU2)  LCODE* ( A. B.  1  > :  TAB(22)  LCODE* (A, B, 2) ; 

58255  LPRINT  TAB(37)  LAMPDATAlA.B.i:;  TAB(43;  LAMFDATh ( A, B, 2) ; 


cS.a'!  LF“.Ni  1  mB ' r i  Li-MFDATm  1  A, B, . 


5327:  IF  A  ..  3  THEN  532% 

53230  LPR I NT  :LF'RINT  : LPR I NT  tLPRINT 
53235  LPR  I  NT  :  LPR  I  NT  ilPRINT  :  Lf'R  I  NT 
53290  NEXT  A 

562-5  PRINT  ; PRINT  : PRINT  TAB- 12); 

58300  INPUT  "Do  you  want  another  copy  iV/Ni  B* 

58305  IF  B$=“N"  OR  B*='V  THEN  RETURN 
533 In  CL£ 

53315  PRINT  :PRINT  :PRINT  : PRINT 
33320  GOTO  53173 

60100  REM  ******************  HARDCOPY  FIXTURE  CU  TABLES  *+*♦*+♦+*****+*♦♦♦♦****+ 
60105  REM 
60110  REM 
60115  CL5 

60120  PRINT  TAB <22!  "HARDCOPY  --  FIXTURE  CU  TABLES" 

60125  PRINT  : PRINT 

60130  PRINT  TAB ‘20)  "This  procedure  will  let  ,ou  choose" 

60133  PRINT  T AB < 20 »  "a  specific  Fi  tore  s  2U  bole  that  is" 
a0140  PRINT  T AB ( 20 •  "stored  in  meinorv  to  send  to  the  printer." 

60145  PRINT  : PRINT 

iOlSO  CR!NT  T -B : 20 »  "Enter  > 1 i  to  continue. 

60135  -PINT  TAB  20-  "  •21  to  -eturn  to  “ardcopv  Menu" 

60160  PRINT  TAB (20)  : INPUT  "  S 

sOloo  IF  3- 1  THEN  o0153 

60  PO  IF  8=2  THEN  RETURN 

60173  GOTO  60115 

60130  REM 

40155  CL 3 

60190  PRINT  : PR I NT 

3uP5  -PINT  TAB (30)  "PRINT  FIXTURE  CU  TABLES” 

60200  PRINT  : PRINT  : PRINT 

:0205  PRINT  TAB (2)'  "CHOICE";  'AB<40'  TIY’URE  Tvpc- 
:rint  :==int 

=0220  PRINT  TAB 22 1  A;  TAB (AO  SOURCE* i A, 1 ' ;  TAB (62)  SOURCE* * A. 2- 
60225  NEXT  A 
60230  PRINT  : PRINT 
60235  PRINT 

60240  PRINT  TAB < 22)  A;  TAB 1 40)  "RETURN  TO  HARDCOPY  MENU" 

60245  PRINT  : PRINT  : PRINT 

40350  INPUT  "  Enter  CHOICE  4  tor  nature  selection:  ",  FT 

60255  IF  FT  i  OR  FT  a  GOTO  &0835 
60260  REM 

60265  IF  FT  =  6  THEN  RETURN 
60270  REM 
60275  REM 
60280  CLS 

60285  PRINT  TAB <21 )  "UPDATE  FIXTURE  FILES:  SOURCE* (FT. 1>;  "  Fixtures" 

60290  PRINT  : PR  I NT 

60295  PRINT  "CHOICE":  TABX12)  "FILE  4":  TAB (23)  "MARE”;  TABX37)  "MODEL  #*; 

60300  PRINT  TAB <51 )  "MAINT. " ;  TAB<64>  "DIST.";  TAB(74)  "S/MH” 

60305  PRINT  TAB < 50)  "CATEGORY";  TAB(64)  "TYPE" 

60310  PRINT 
60315  FOR  A=1  TO  10 

60320  PRINT  TAB (3)  A;  TAB (12)  FCOD€*(FT.A, 1);  TAB (23)  FC0DE*(FT,A,2' ; 

60325  PRINT  TAB<37)  FC0DE*(FT,A,3>:  TAB(53)  hC0DE*(FT,A,4); 

60330  PRINT  TABI65)  F I XTDATA (FT, A, 2) ;  TAB(74)  HXTDATAtFT.A, 1) 

60335  NEXT  A 
:<C4(  PRINT  ; PRINT 

60345  INPUT  "  To  print  fixture  data,  enter  CHOICE  4  or  (0)  to  quit:  \  FC 

60350  IF  FC  =  0  GOTO  60135 

60355  IF  -i  .i  OR  FC  -  10  GOTO  ou835 

at  360  REM 


50370  IF  FT=1  THEN  60395 

60375  IF  FT=2  'HEM  60450 

*0360  IF  FT =3  THEN  605Q0 

30335  IF  FT=4  '’HEN  60645 

o03,0  IF  FT=5  THEN  60700 

60795  IF  FC=1  THEN  OPEN  "I",  #1.  "A: INCU1.DAT" 

60400  IF  FC=2  THEN  OPEN  ”1",  #1,  "A: INCU2.DAT" 

60405  IF  FC=3  THEN  OPEN  “I“,  41.  1  A: INCU3.DAT" 

60410  IF  FC=4  THEN  OPEN  "I\  #1.  "A: INCU4.DAT" 

60415  IF  FC=5  THEN  OPEN  "I",  #1,  "A: INCUS. DAT" 

60420  IF  FC=6  THEN  OPEN  “l",  »1,  “A: INCU6.DAT" 

60425  IF  FC=7  THEN  OPEN  "I",  #1,  "A; INCU7.DAT" 

60430  IF  FC=9  THEN  OPEN  "I",  41,  "A: INCUS. DAT" 

30435  IF  FC=9  THEN  OPEN  "I”.  41,  "AtlNORDAT" 

30440  IF  FC=10  THEN  OPEN  "I",  41,  “A: INCU10.BAT" 
60445  GOTO  6,.i5o5 

c0450  IF  FC- 1  THEN  OPEN  "I",  41,  "A: FLCU1.DAT" 

30455  IP  FC=2  THEN  OPEN  ”1",  41.  "A: FLCU2.DAT" 

•;04o0  IF  FC*3  THEN  OPEN  "I".  4i,  "AsFLCU3.DAT" 

o0405  IF  FCr4  THEN  OPEN  "I",  41,  "A: FLCU4.DAT" 

60470  IF  FC-5  THEN  OPEN  "I",  41,  "A: FLCU5.DAT" 

Vi475  IF  FC=6  THEN  OPEN  "I",  *1.  "A: FLCU6.DAT" 

-048V  IT  FC='  THEN  OPEN  "I  ,  41.  "A: FLCU7.DAT" 

31.485  IF  FC=S  THEN  OPEN  "I",  41.  ’A: FICU8.DAT" 

30490  IF  PC-5  THEN  OPEN  T’.  41,  "A:FLCU°.DAT" 

60495  IF  FC=IQ  THEN  OPEN  ’I".  41.  "A: FLCU10.DAT" 
60500  REM 

67.505  TOR  D=1  TO  2 

60510  FOP  0=1  TO  4 

=0515  tor  b=i  TO  10 

:0520  INPUT41,  CUl • B , C . D  * 
s0525  ME  <T  S 
:0530  IE>  T  C 

rf-o  tqr  :>=>  *j  : 

CU545  TOR  :=:  TO  3 
30550  FOP  8=1  TO  10 
c0555  INPUT# 1,  CU2iB.C,D) 

30560  NEXT  8 
60565  NEXT  C 
60570  NEXT  D 
37.575  CLOSE  41 
30580  GOTO  6C865 
6.0585  REM 

60590  IF  FC=1  THEN  OPEN  "I".  41.  "A: MVCU1.DAT" 

60595  IF  FC=2  THEN  OPEN  "I".  41.  "A: MVCU2.DAT" 

60600  IF  FC=3  THEN  OPEN  "I",  41,  "A: MVCU3.DAT" 

60605  IF  FC=4  THEN  OPEN  "I",  41.  "A: MVCU4.DAT" 

60610  IF  FC=5  THEN  OPEN  "I",  41,  "A:MVCU5.DAT” 

60615  IF  FC=a  THEN  OPEN  "I",  41,  "A: MVCU6.DAT" 

60620  IF  Fl=7  THEN  OPEN  "I",  41,  "A: MVCU7.DAT" 

60625  IF  FC=G  THEN  OPEN  "!\  41,  "A:MVCU8.DAT" 

60630  IF  FC=9  THEN  OPEN  "I",  41,  "A: MVCU9.DAT" 

60635  IF  FOIO  THEN  OPEN  "I",  #1.  "A: MVCU10.DAT" 
30640  GOTO  60 755 

60645  IF  FC=1  THEM  OPEN  "I",  41,  ”A:MHCU1.DAT" 

a0650  IF  FC=2  THEN  OPEN  "I",  41,  "A: MHCU2. DAT" 

60655  IF  FC=3  THEN  OPEN  "I".  II.  "A: MHCU3.DAT" 

60360  IF  FC=4  THEN  OPEN  "I",  41.  "A: MHCU4.DAT" 

3.  -1;  IF  -C=5  THEN  jpEN  'I".  41.  "A: MHCU5.DAT" 

6.7.670  IF  FC=6  THEN  OPEN  "I",  41,  "A:MHCU6. DAT" 

60675  IF  FC=7  THEN  OPEN  'T'.  #1,  "A: MHCU7.DAT" 

07.6  80  IF  FC=8  THEN  OPEN  "I".  41,  "A: MHCU8. DAT" 

--  ,r  -  -jr;;  -r-W  I  T  T\\'r" 


41.  "A:  MHCUki.DAT" 


*!, 

*1. 

•  1. 
*1, 
#1, 
41. 
#1. 
41. 
#1. 

.  *1. 


"A:  HPCUl.DAT" 
"A: HPCU2. DAT" 
"A:HF’C13.  DAT" 

'A:  HPCL'4.  DAT" 
"A:  HFCU5.DAT" 
"A:  HPCU6.DAT" 
"A:  HPCU7.  DAT*’ 
"A: HPCU8.DAT" 
"A:  HFCU9.DAT" 
"A: HPCU10.DAT" 


IF  FC=  1“  'HEN  OPEN  "I" 
rOa-'S  GOTO  50755 

:f  f:=i  then  open  t 

O'. '15  IF  FOO  THEN  OPEN  "! 
aOTIO  IF  PC=:  THEN  OPEN  ’! 

50715  IF  PC=4  THEN  OPEN  "I 
s0720  IF  PCz5  THEN  OPEN  "I 
o0725  IF  PC =6  THEN  OPEN  "I" 

50730  IF  FC=7  THEN  OPEN  "I" 

.i0735  IF  FC=8  THEN  OFEN 
aO'40  IF  FC-9  THEN  OPEN  "I" 
c0745  IF  FC=10  THEN  OPEN  "I 
o0750  REM 

o0755  POP  C=1  TO  4 
aO’a'j  F'OR  B=  1  TO  !u 
o0735  INPUT#! ,  CU3iB,C.l' 

5)"')  NE'rfT  E 
: I  ”7;  NEXT  C 
o'.i'Su  FOR  D=1  TO  2 
o)'35  FOR  C=!  TO  3 
o0790  POR  B=1  TO  10 
aOTPS  INPUT#!.  CU4(B.C.D' 

AnSuu  NEXT  B 
60805  NEXT  C 
60810  NEXT  D 
-0315  REM 
60820  CLOSE  #1 
50325  GOTO  61090 
5)830  REM 
60835  CLS 
60840  PRINT  ” 

50845  PRINT 
60850  INPUT  11 
60855  GOTO  60185 

608e0  F'EM  ♦*♦*»♦♦♦*♦  INC.  CLU  "IVTUPE  CL 
5)365  :j 

60870  PRINT  :  PRINT  :  PR  I  NT  :  PRINT  ;  PRINT  TABU2*: 

60875  INPUT  "Be  sure  »our  Printer  is  an,  press  RETURN-  when  read. 

60830  PRINT  : PR I NT 

60885  PRINT  TAB (32)  "PRINTING" 

60890  REM 

603°5  LPRINT  TAB (5)  “FIXTURE  MAKE:  F'20DE$iFT.FC,2): 

60900  LPRINT  TAB (50)  "FIXTURE  MODEL:  FCODE* (FT.FC.3' 

o0905  LPRINT  : LPRINT 

50910  LPRINT  TAB(5)  "CFR")  TAB !46)  CFR-2) 

60°  15  LPRINT  TAB-: 5'  “CCR”:  TAB « 18)  CCRMD;  TAB1 37-  CCR12  : 

60920  LPRINT  TAB'54i  CCR(3);  TAB(69)  CCR (4) 

60925  REM 

60930  LFRINT  TAB '5)  “CWF:": 

50935  LPRINT  TAB '12'  CUR'D:  CNR <2;;  CWR  Os  CWRX4) : 

60940  LPRINT  TAB (31)  CWR(l);  CWRCi:  CWR<3>;  CWR ( 4 . ; 

50945  LPRINT  TAB (50)  CWR(2>;  CWR'3);  CWR<4>; 

60950  LPRINT  TAB '65)  CWR ( 2 ■ ;  CWR'4);  CWR (4) 

60855  LPRINT 
6O°60  REM 

60965  LPRINT  TAB (5)  "RCR" 

5)970  REM 

60975  FOR  A=1  TO  10 
60980  LPRINT  TAB'S)  A; 
o0985  uPRINT  TAB (12) 

.;)«■>  P’CR  BZ1  TO  4 
60995  LPRINT  CUliA,B,l): 

61000  NEXT  B 
510)5  LPRINT  TAB (31) 

:l  )I  .i  FOR  2=1  TO  4 


Invalid  entry,  please  trv  aqain." 
Press  'RETURN  when  ready.  *.  Bt 
TABLE  PRINT 


1 .  E>$ 


A .  ,LJ  l 


[i 


I  <.1  l.l  l.l 


61015  LPRINT  CUHA,S,2' 
61020  NEXT  5 
61025  LPRINT  TAB (501  "" 
61030  FOR  B=1  TO  3 
61035  LPRINT  CU2iA,B.l) 
ol040  NEXT  6 
61045  LPRINT  TAB '65)  "" 
si ‘050  FOR  B=1  TO  2 


61060  NEXT  B 

61065  LPRINT  CU2  X A , 3 , 2 > 

61070  NEXT  A 
611-75  REM 
61060  GOTO  60135 

61035  REM  ♦♦♦*♦*****  MV/MH/HPS  FIXTURE  CU  TABLE  PRINT 
61090  CLS 

o!095  PRINT  : PRINT  TAB (12): 

61100  INPUT  "Be  sure  vour  Printer  is  on,  press  '.RETURN, 

61105  PRINT  : PRINT 

oil  10  PRINT  TAB ( 32 '•  "PRINTING" 

oil  15  REM 

si  120  LPRINT  TAB'S)  "FIXTURE  MAPI:  FCODE* ■- FT . FC , 2 ) ; 

oll25  LPRINT  TA0.-45'  "FIXTURE  MODEL:  “:  FCODEi 'PT.FC, 3) 
61130  LPRINT  : LPRINT 


when  readv.",  Bt 


61135  LPRINT  TAB (10)  "CFR";  TAB' 3b)  CFR>'2> 


61140  LPRINT  TAB t 10)  'CCR":  TAB  26'  CCRtl *;  TAB (44)  CCR (3) ; 
61145  LPRINT  TAB(oO)  CCR'.5> 
oil 50  REM 

01155  LPRINT  TAB! 10)  "CWF": 

61160  LPRINT  TAB (20)  CNRtl);  C«Ri2»;  CHRQ;  CNR (4/ : 
oll65  LPRINT  TAB (40)  CNR(2):  CWR'.3> ;  CNR(4i; 
si  170  LPRINT  TAB '56-  CUR '2);  CWF. ‘47  5  CUR(4- 
61  ITS  LPRINT 
oilSO  REM 

61135  LPC'INT  TAB- 10-  "R2R" 
n 1 1 R X  PEN 

61195  FOR  A=1  TO  10 
o 1 ZOO  LPRINT  TAB (10)  A: 

61205  LPRINT  TAB (20) 
sl210  FOR  6=1  TO  4 
61215  LPRINT  CU3(A,B,l)j 
61220  NEXT  B 
ol225  LPRINT  TAB (40) 
si 230  FOP  6=1  TO  3 
61235  LPRINT  CU4(A,B,1); 

61240  NEXT  B 
61245  LPRINT  TAB(56) 

61250  FDR  6=1  TO  2 
61255  LPRINT  CU4IA,B,2); 
si 260  NEXT  B 
61265  LPRINT  CU4(A,3,2> 

61270  NEXT  A 
61275  REM 
61230  GOTO  60185 
ol235  REM 
si 290  REM 


Appendix  E:  Subroutine  Listings 


This  appendix  contains  the  listings  of  major 
subroutines  tha*-  '..ake  up  the  second  and  third  sub-programs 
of  LIGHT1A.  T:;£  first  sub-program  is  broken  into  only  two 
major  areas  neither  of  which  depend  on  the  other.  Because 
of  this,  the  first  sub-program's  breakdown  is  not  included 
in  this  appendix.  Listed  in  this  appendix  will  be  the 
subroutine’s  starting  line  number,  and  the  subroutine’s 
function  (what  the  subroutine  does). 


Line  Number 

5100 
10100 
11100 
12100 
13100 
20100 
21100 
22100 
23100 
24100 
25100 
25250 
25370 
25415 
26100 
27640 
27800 
27845 
29100 
30100 
40100 
4  1100 
42100 
43100 
44100 
45100 
47100 
48100 
50100 
50115 
50190 
51100 
54100 
55100 
57100 


i 

> 

I 

I 

i 

i 


Subroutine  Function 

Menu  --  B  Screen 
New  Room  w/o  Tables  Screen 
New  Room  w/  Tables  Screen 
w/o  Tables  Introduction  Screen 
w/  Tables  Introduction  Screen 
Screen  1,  Room  Information 
Screen  2,  Luminaire  Information 
Screen  3,  Final  Design  Calcs. 

Screen  4,  Final  Design  Calcs. 
Effective  Reflectances  Calcs. 
Luminaire  Dirt  Depreciation  Calcs. 
Room  Surface  Dirt  Depreciation  Calcs 
Lamp  Lumen  Depreciation  Calcs. 

Total  Light  Loss  Factor  Calcs. 

Charted  CU  Values 

Floor  Coefficient  Calcs. 

Final  CU  Value  Calcs. 

Non-stored  CU  Tables 
Number  of  Fixture  Calcs. 

Actual  FC  Level  Calcs. 

Room  Reference  Data 

AFR  38-15  FC  Levels 

Room  Dimensions  and  RCR  Calcs. 

Surface  Reflectances 

Room  Dirt  Conditions 

Light  Source  Types 

Fixture  Choices 

Lamp  Choices 

Non-tabled  Room  Information 

Room  Use  w/o  Tables 

Room  Reflectances  w/o  Tables 

Non-stored  Fixture  Information 

Maintenance  Categories 

Distribution  Types 

Hardcopy 


B.  2 


Line  Number 


Program  2  --  Major  Subroutines 


4100 

5100 

6100 

29100 

30100 

32100 

34100 

36100 

37100 

50100 

51100 

I  54100 

'  55100 

57100 

58100 

60100 

i 

t 

i 

> 

! 


Subroutine  Function 

Menu  --  Cl  Screen 

Menu  --  C2  Screen 

Menu  --  C3  Screen 

Update  AFR  88-15  FC  Levels 

Update  Color  Chart 

Update  Fixture  Files 

Update  Lamp  Files 

CU  Chart  Input  (Inc.  &  Fluor.  Fixtures) 

CU  Chart  Input  (MV,  MH  &<  HPS  Fixtures) 

Maintenance  Categories 

Distribution  Types 

Hardcopy  AFR  88-15  Information 

Hardcopy  Color  Chart 

Hardcopy  Fixture  Choices 

Hardcopy  Lamp  Choices 

Hardcopy  Fixture  CU  Chart 


t 


! 


t 


! 


r 

i 


B.  3 


.v.v.V.S 


v,' 

i'j 


Appendix  C:  Hardcocles  of  Changeable  Data  Files 

This  appendix  contains  a  printout  of  the  reference 
data  contained  in  the  four  "changeable"  data  files.  Each 
data  file  title  and  starting  page  number  is  listed  below. 
These  listings  can  be  produced  by  using  the  third 
sub-program  in  LIGHT1A. 


Title  Page 


AFR  88-15  FC  Requirements 


Color  Chart  Information  .  C.3 

Fixture  Choices  .  C.4 


Lamp  Choices 


C.  6 


AFR  88-15  FC  REQUIREMENTS 


TYPE 

ROOM  USE 

FC  LEVEL 

1 

Designer’s  Choice 

0 

2 

No  Designation 

30 

3 

No  Designation 

50 

4 

No  Designation 

70 

5 

No  Designation 

100 

6 

No  Designation 

150 

7 

Accounting  rooms 

75 

8 

Audi  tor lums 

20 

g 

Cafeterias 

25 

10 

Computer  rooms 

50 

i  i 

Conference  rooms 

30 

12 

Corridors 

10 

13 

Drafting  rooms 

75 

14 

Elevator  mach.  rms 

15 

15 

EM.  Generator  rooms 

15 

16 

Garage  Enterence 

30 

17 

General  Offices 

50 

18 

Janitor’s  Closet 

5 

19 

K 1 tchens 

70 

20 

Lobbies 

IS 

21 

Lounges 

15 

22 

Mechanical  rooms 

15 

23 

Stairways 

20 

24 

Storage  rooms 

5 

25 

Swlchgear  rooms 

15 

26 

To i lets 

20 

27 

Transformer  Vaults 

15 

28 

War ehous i ng : 

0 

29 

1 nact i ve 

5 

30 

Acti ve-bu l k 

10 

31 

Rack 

20 

32 

Bin 

5 

33 

Material  Handling: 

0 

34 

Control  Centers 

30 

35 

Load/Un  1 oad 

20 

36 

Conveyor  Lines 

10 

COLOR  CHART  INFORMATION 


TYPE  # 

BRAND 

COLOR 

REFLECT 

1 

DEFAULT 

CEILING 

80 

2 

DEFAULT 

UALL 

70 

3 

DEFAULT 

FLOOR 

20 

4 

0 

5 

0 

6 

DURREL 

Cameo  White 

86 

7 

DURREL 

Winter  White 

83 

a 

DURREL 

Leman 

84 

9 

DURREL 

Mani I  la  Beige 

77 

10 

DURREL 

Pink  Marble 

74 

n 

DURREL 

Butte  Orange 

31 

12 

DURREL 

Lavender  Rose 

39 

13 

DURREL 

Pale  Violet 

74 

14 

DURREL 

Violet  Gray 

52 

15 

DURREL 

Blue  Daisy 

62 

16 

DURREL 

I cebur  g 

77 

17 

DURREL 

Crayon  Blue 

20 

18 

DURREL 

Colonial  Green 

69 

19 

DURREL 

Pastel  Green 

69 

20 

DURREL 

Mint  Haze 

75 

21 

DURREL 

Silver  Lining 

70 

22 

DURREL 

Dawn  Gray 

77 

23 

DURREL 

Sand  Tan 

68 

24 

DURREL 

Ocean  Sand 

63 

25 

DURREL 

C i nnamon 

16 

FIXTURE  CHOICES 


,« v  ?•:*  v.* « wwuw v » » rjirjtirv* 


Incandescent  Fixtures 


FILE  # 

MAKE 

MODEL  » 

MAI  NT. 

DIST. 

S/MH 

CATEGORY 

TYPE 

I  -01 

0 

0 

I  -02 

LI thcnla 

ASA-AR 

V 

5 

1.  1 

I  -03 

0 

0 

I  -04 

Li thonla 

A8A-AR 

V 

5 

1 

1-05 

0 

0 

I  -06 

0 

0 

1-07 

0 

0 

I  -08 

0 

0 

I  -09 

0 

0 

I  -10 

0 

0 

Fluorescent  Fixtures 


FILE  # 

MAKE 

MODEL  » 

MAINT. 

DIST. 

S/MH 

CATEGORY 

TYPE 

F-01 

Li thonla 

2GS-240 

V 

5 

1 . 4 

F-02 

Li thonia 

2GS-340 

V 

5 

1.3 

F-03 

LI thonla 

2GS-440 

V 

5 

1.3 

F-04 

0 

0 

F-05 

0 

0 

F-06 

0 

0 

F-07 

0 

0 

F-08 

0 

0 

F-09 

0 

0 

F- 10 

0 

0 

Mercury 

Vapor  Fixtures 

FILE  # 

MAKE 

MODEL  » 

MAINT. 

DIST. 

S/MH 

CATEGORY 

TYPE 

MV -01 

Hi -Tek 

TXL-100H-ARW 

IV 

5 

1.7 

MV-02 

Hl-Tek 

TXL-  175  ••  ARU 

IV 

5 

1.6 

MV-03 

Hi -Tek 

TXL-250H-ARW 

I  V 

5 

1 . 6 

MV-04 

0 

0 

MV-05 

0 

0 

MV-06 

0 

0 

MV-07 

0 

0 

MV-08 

0 

0 

MV -09 

0 

0 

MV- 10 

0 

0 

C.  A 


s 


Metal  Halide  Fixtures 


FILE  # 

MAKE 

MODEL  # 

MAI  NT. 

D  1  ST. 

S/MH 

CATEGORY 

TYPE 

MH-01 

Hi-Tek 

TXL- 1 75M-ARW 

I  V 

5 

1.8 

MH-02 

Hi-Tek 

TXL-2S0M-ARU 

IV 

5 

1.7 

MH-03 

0 

0 

MH-04 

0 

0 

MH-05 

0 

0 

MH-06 

0 

0 

MH-07 

0 

0 

MH-08 

0 

0 

MH-09 

0 

0 

MH-10 

0 

0 

High  Pressure  Sodium  Fixtures 

FILE  • 

MAKE  MODEL  t 

MAI  NT. 

DIST. 

S/MH 

CATEGORY 

TYPE 

H-Ol 

Hi-Tek  TX-2S0S-ARU 

IV 

5 

2 

H-02 

Hi-Tek  TX-400S-ARU 

IV 

5 

1.7 

H-03 

0 

0 

H-04 

0 

0 

H-05 

0 

0 

H-06 

0 

0 

H-07 

0 

0 

H-08 

0 

0 

H-09 

0 

0 

H-  10 

0 

0 

LAMP  CHOICES 


Incandescent  Lamps 


FILE  * 

CODE 

WATTS 

INITIAL 

LUMENS 

MAI  NT. 
LUMENS 

I  -21 

75A 

75 

1190 

1190 

I  -22 

75A/CL 

75 

1190 

1190 

I  -23 

100A 

100 

1750 

1750 

I  -24 

100A/CL 

100 

1750 

1750 

I  -25 

150A 

150 

2880 

2880 

I  -26 

150A/CL 

150 

2880 

2880 

1-27 

200A 

200 

4010 

4010 

I  -28 

200A/CL 

200 

4010 

4010 

I  -29 

300M 

300 

6360 

6360 

1  -30 

0 

0 

0 

F I uorescent 

Lamps 

FILE  » 

CODE 

WATTS 

INITIAL 

MAINT. 

LUMENS 

LUMENS 

F-21 

F40CW/RS/WM 

35 

2850 

2510 

F-22 

F40UW/RS/WM 

35 

2850 

2510 

F-23 

F40CU 

40 

3150 

2770 

F-24 

F40WU 

40 

3150 

2770 

F-2S 

F40CU/U/6 

40 

2900 

2525 

F-26 

F96T12/CU/UM 

60 

5600 

5150 

F-27 

F96T12/WW/WM 

60 

5600 

5150 

F-28 

F96T12/CW 

75 

6300 

5800 

F-29 

F96T12/WW 

75 

6300 

5800 

F-30 

0 

0 

0 

Mercury  Vapor 

Lamps 

FILE  » 

CODE 

WATTS 

INITIAL 

MAINT. 

LUMENS 

LUMENS 

MV-21 

H75DX43 

75 

2800 

2250 

MV-22 

0 

0 

0 

MV-23 

H100DX38-4 

100 

4200 

3530 

MV-24 

0 

0 

0 

MV-25 

H175DX39-22 

175 

8600 

7650 

MV-26 

0 

0 

0 

MV-27 

H250DX37-5 

250 

12100 

10400 

MV-28 

H400DX33- 1 

400 

22500 

19100 

MV-29 

H700DX35 - 1 8 

700 

42000 

33600 

MV-30 

H 1 000DX36 -  1 5 

1000 

63000 

47500 

C.  6 


Metal  Halide  Lamps 


FILE  • 

CODE 

WATTS 

INITIAL 

LUMENS 

MAI  NT. 
LUMENS 

MH-21 

MV175/U 

175 

14000 

10800 

MH-22 

MV175/C/U 

175 

14000 

10200 

MH-23 

MV250/U 

250 

20500 

17000 

MH-24 

MV250/C/U 

250 

20500 

16000 

MH-25 

MV400/U 

400 

34000 

25600 

MH-26 

MV400/C/U 

400 

34000 

24600 

MH-27 

MVIOOO/U 

1000 

110000 

88000 

MH-28 

MVIOOO/C/U 

1000 

105000 

83000 

MH-29 

MV1SOO/HBU/E 

1500 

155000 

140000 

MH-30 

MV1SOO/HBD/E 

1500 

155000 

140000 

Pressure 

Sodium  Lamps 

FILE  » 

CODE 

WATTS 

INITIAL 

MAI  NT. 

LUMENS 

LUMENS 

H-21 

LU50 

50 

3300 

2970 

H-22 

0 

0 

0 

H-23 

LU70 

70 

5800 

5220 

H-24 

0 

0 

0 

H-2S 

LU100 

100 

9500 

8550 

H-26 

LU150/55 

ISO 

16000 

14400 

H-27 

LU200 

200 

22000 

19800 

H-28 

LU250 

250 

27500 

24750 

H-29 

LU400 

400 

50000 

45000 

H-30 

LU1000 

1000 

140000 

126000 

Appendix  D: 


Entire  Screen  Displays  for  Chapter  IV  Problem 


This  appendix  contains  all  the  "screens”  that  the 
design  engineer  would  see  generated  by  LIGHT1A  while 
performing  the  same  lighting  design  that  was  done  in 
Chapter  IV. 

If  on  a  computer  that  is  IBM  compatible,  the  design 
engineer  would  place  the  PROGRAM  DISK  in  the  A  disk  drive 
of  the  computer  and  enter  "BASICA  LIGHT1A"  at  the  DOS 
prompt . 

If  the  design  engineer  is  using  the  Wang  pc  computer, 
he  simply  would  install  BASIC  into  the  computer’s  memory, 
place  the  PROGRAM  DISK  in  the  A  drive,  and  enter 
"A : L I GHT1 A"  at  the  BASIC  prompt. 

Screen  D.l  is  the  first  screen  that  would  appear. 


Subsequent  screens  and  the  appropriate  responses  are  shown. 


Automated  Interior  Lighting  Design 
Version  1.01 


Screen  D. 1 


RESPONSE:  Hit  <RETURN> 


Screen  D. 3 

RESPONSE:  Insert  Data  Disk  in  Drive  A,  Hit  <RETURN> 


tvw  vv.vy 


ICTIONS  -- 

W  1  TH 

give  you 

scr eei 

een  will 

be  f 01 

i«r  screen 

will 

1  out  the 

screi 

ght  of  the  majt 

r 

> 

ROOM  INFORMATION 

REQUIREMENTS 

<  i  > 

REFERENCE  DATA: 

Building  • 

Room  t 

Iteration:  1 

(2) 

Rood  Use: 

FC  Requirements:  0 

(3) 

ROOM  DIMENSIONS: 

Celling 

Height: 

0 

Length:  0 

Per  last er : 

0 

F 1  xture 

Height: 

0 

Width:  0 

Area : 

0 

Working 

Height: 

0 

(  4  ) 

ROOM  REFLECTANCES: 

Ceiling  Color: 

Ref  1 ectance  :  0  % 

Wall  Color: 

Ref  1 ectance :  0  % 

F 1 oor  Color: 

Ref  1 ectance :  0  * 

<  S  ) 

Rooa  Cond 1 1 1  on : 

Cleaning  Cycle:  0 

months 

Enter 

se'ectlon  *  (*)  for  data  Input, 

or 

l0>  to  continue: 

J 

Please  enter  the  building  number:  None 


Please  enter  room  number:  None 

This  is  Iteration  •  1  for  this  room  --  Correct  (Y/NJ  ? 


Screen  D. 7 

RESPONSE:  Enter  proper  responses  shown,  then  Enter 


ROOM  INFORMATION 

REQUIREMENTS 

( 1 ) 

REFERENCE  DATA: 

Building  •  None 

Rooa  t  None 

Iteration:  1 

(2) 

Room  Use: 

FC  Requirements:  0 

<  3 ) 

ROOM  DIMENSIONS: 

Celling 

Height  : 

0 

Length:  0 

Perimeter:  0 

F 1  x  ture 

Height : 

0 

Width:  0 

Area:  0 

Work l ng 

Height: 

0 

(  4  ) 

ROOM  REFLECTANCES: 

Celling  Color: 

Re f  1  ectance :  0  % 

Wall  Color: 

Ref  1 ectance :  0  * 

Floor  Color: 

Ref  1 ectance :  0  % 

(5) 

Room  Condition: 

C 1 ean  1  ng  Cycle:  0 

months 

Enter  selection  i  <x>  for  data  input,  or  (0/  to  continue: 


FQQTCANDLE  LEVEL  REQUIREMENTS 


You  aust  select  the  room's  actual  use  along  with  Its 
corresponding  FC  level  froa  the  following  table.  This 
table  coses  from  the  AFR  88-15,  and  is  split  into  three 
screens.  To  enter  your  own  FC  level,  choose  *1  on  the 
first  screen. 


Press  <RETURN>  to  continue. 


V _ 

Screen  D. 9 

RESPONSE:  Hit  <RETURN> 


- - 


ROOM  TYPE 

ROOM  USE 

FC  1 

13 

Drafting  rooas 

75 

14 

Elevator  sach.  ras 

15 

15 

EM.  Generator  rooms 

15 

16 

Garage  Enterence 

30 

17 

General  Offices 

SO 

18 

Janitor's  Closet 

5 

19 

K 1 tchens 

70 

20 

Lobb 1 es 

15 

21 

Lounges 

15 

22 

Mechanical  rooas 

15 

23 

Sta 1 rways 

20 

24 

Storage  rooas 

5 

25 

OTHER 

Enter  selected  Roob  Type: 


Screen  D.10 

RESPONSE:  Enter  17  (note:  one  screen  not  shown) 


D.  6 


You  have  chosen 


Genera  1  Of  f i ces 


With  a  footcandle  level  of:  50 

Is  this  correct  (Y/N)  ? 


RESPONSE:  Enter 

Screen  D 

Y 

.  11 

ROOM  INFORMATION 

REQUIREMENTS 

1 1  > 

REFERENCE  DATA: 

Bui  1  ding  1  None 

Rooa  t  None 

I tera  1 1 1 

on :  1 

(2) 

Rooa  Use:  General 

Offices 

FC  Requl reaents :  50 

(3) 

ROOM  DIMENSIONS: 

Celling 

Height : 

0 

Length:  0 

Perlaeter:  0 

F 1  x ture 

Height: 

0 

Width:  0 

Area:  0 

Working 

Height: 

0 

(  4  ) 

ROOM  REFLECTANCES: 

Cel  ling  Color: 

Ref  1 ectance :  0  % 

Wall  Color: 

Ref  1 ectance :  0  % 

Floor  Color: 

Ref  1 ectance :  0  % 

(5) 

Rooa  Condition: 

Cleaning  Cycle:  0 

aonths 

Enter 

selection  •  <x)  for  data  Input,  or 

( 0 )  to  cont 1 nue : 

ROOM  DIMENSIONS 


To  calculate  the  cavity  ratios  of  the  room, 
either  the  room  length  and  width  suit  be 
used,  or  the  room  perimeter  and  floor  area 
must  be  used. 


Which  will  you  be  using  to  calculate  the  cavity  ratios? 

Enter  (1)  for  length  and  width  measurements. 

(2)  for  perimeter  and  area  measurements. 


Screen  D. 13 


RESPONSE:  Enter  1 


Enter  the  following  room  dimensions  (in  feet): 


Room 

Length: 

40 

Room 

Width: 

7 

40 

F 1  oor 

To  Cel  1 lng 

Hei ght : 

7 

10 

F 1  oor 

To  Fixture 

Hel ght : 

7 

a 

F 1  oor 

To  Working 

Surface  Height: 

7 

2.  s 

Please  verify  the  following  information: 


The 

Room  Length: 

40  ft. 

The 

Room  Width: 

40  ft. 

The 

Room  Perimeter: 

160  ft. 

The 

Room  Floor  Area: 

1600  ft'2 

The 

Floor  to  Celling 

Height: 

10  ft. 

The 

Floor  to  Fixture 

Hel ght : 

8  ft. 

The 

Floor  to  Working 

Surface  Height: 

2.5  ft. 

Is  everything  correct  (Y/N)  ? 

v _ 

Screen  D. 15 


RESPONSE:  Enter  Y 


ROOM  INFORMATION  REQUIREMENTS 

(1)  REFERENCE  DATA! 

Building  •  None  Rood  •  None 

(2)  Roan  U*e:  General  Office! 

(3)  ROOM  DIMENSIONS: 


1 terat 1  on  : 
FC  Requirements:  50 


Length:  40 
Width:  40 

(4)  ROOM  REFLECTANCES: 

Celling  Color: 

Wall  Color: 

Floor  Color: 

(5)  Room  Condition: 


Perimeter: 
Area : 


160 

1600 


Celling  Height:  10 
Fixture  Height:  8 
Working  Height:  2. 


Ref  1 ectance :  0  % 
Ref  1 ectance :  0  % 
Ref  I ectance  :  0  % 

C  1  ean 1 ng  Cyc I e : 


month! 


Enter  selection  •  (x)  for  data  Input,  or  (0)  to  continue: 


Screen  D. 16 


RESPONSE:  Enter  A 


D.  9 


SURFACE  REFLECTANCES 


You  need  to  choose  the  color  and  reflectance  ratings 
of  the  ceiling,  the  walls,  and  the  floor.  Following 
are  3  screens  full  of  colors  and  their  associated 
reflectances  to  Bake  /our  choices  from.  Please  enter 
the  TYPE  »  in  the  sequence  indicated. 


Press  <RETURN>  to  continue. 


Screen  D. 17 

RESPONSE:  Hit  <RETURN> 


TYPE 

BRAND 

COLOR 

REFLECTIVITY 

1 

DEFAULT 

CEILING 

80 

2 

DEFAULT 

UALL 

70 

3 

DEFAULT 

FLOOR 

20 

4 

0 

5 

0 

6 

DURREL 

Caaeo  White 

86 

7 

DURREL 

Winter  White 

83 

a 

DURREL 

Lenon 

84 

9 

DURREL 

Manl 1 1  a  Beige 

77 

10 

DURREL 

Pink  Marble 

74 

u 

OTHER 

To  select,  Enter  TYPE  t 
TYPE  •  for  Celling  Color: 


TYPE 

BRAND 

COLOR 

REFLECTIVITY 

21 

DURREL 

SI  1 var  Lining 

70 

22 

DURREL 

Dawn  Cray 

77 

23 

DURREL 

Sand  Tan 

68 

24 

DURREL 

Ocaan  Sand 

63 

25 

DURREL 

C 1 nnaraon 

16 

26 

0 

27 

0 

28 

0 

29 

0 

30 

0 

31 

OTHER 

To  aalact,  Entar  TYPE  • 

TYPE  •  for  Ca 1 1 1 nf  Color:  7 

TYPE  t  for  Ual 1  Color: 


Screen  D. 19 


RESPONSE:  Enter  21 


TYPE 

BRAND 

COLOR 

REFLECTIVITY 

11 

DURREL 

Butta  Oranga 

31 

12 

DURREL 

Lavandar  Roia 

39 

13 

DURREL 

Pa  1  a  Vlolat 

74 

14 

DURREL 

Vlolat  Gray 

52 

15 

DURREL 

Blua  Daisy 

62 

16 

DURREL 

I  caburg 

77 

17 

DURREL 

Crayon  Blua 

20 

18 

DURREL 

Colonial  Graan 

69 

19 

DURREL 

Pastal  Graan 

69 

20 

DURREL 

Hint  Haza 

75 

21 

OTHER 

To  salact, 

Entar  TYPE  • 

TYPE  •  for  Cal  I  Inf  Color:  7 

TYPE  t  for  Wall  Color:  21 

TYPE  «  for  Floor  Color: 


Screen  D.20 


RESPONSE 


Enter  17 


You  have  chosen: 


r 


W Inter 

White 

with 

a 

83 

% 

Ref  1 ect 1 v  1  ty 

for 

the 

Celling 

SI  1 ver 

Lining 

with 

a 

70 

% 

Ref  1  activity 

for 

the 

Walls. 

Crayon 

CD 

C 

• 

with 

a 

20 

% 

Ref  1 ect 1 v  1  ty 

for 

t  h# 

Floor. 

Are  these  all  correct  (Y/N)  ? 


Screen  D.21 


RESPONSE: 


Enter 


ROOM  INFORMATION  REQUIREMENTS 

(1)  REFERENCE  DATA: 

Building  •  None  Roon  •  None 

(2)  Roon  Use:  General  Offices 

(3)  ROOM  DIMENSIONS: 


Iteration:  1 
FC  Requirements:  50 


Length:  40 
Width:  40 

(4)  ROOM  REFLECTANCES: 


Per looter : 
Area : 


160 

1600 


Cel  1 lng  Height:  10 
F l x  tur e  Height:  8 
Working  Height:  2.5 


Ceiling  Color:  Winter  White 
Wall  Color:  Sliver  Lining 

Floor  Color:  Crayon  Blue 

(5)  Room  Condition: 


Reflectance:  83  * 
Ref  I ectance :  70  % 
Ref  1 ectance :  20  % 

Cleaning  Cycii 


0  months 


Enter  selection  »  (x>  for  data  Input,  or  (0)  to  continue: 


Screen  D. 22 


RESPONSE:  Enter  5 


D.  12 


ROOM  DIRT  CONDITIONS 


You  oust  lelect  a  ‘Dirt  Condition’ , 
and  a  cleaning  cycle  for  the  room. 


Press  <RETURN>  to  continue. 


Screen  D.23 


RESPONSE:  Hit  <RETURN> 


DEGREES  OF  ROOM  DIRT  CONDITION 


DEGREE 


EXAMPLE 


CONDITION 

Very  Clean 
Clean 
Medlue 
Dirty 

Very  Dirty 


Enter  DEGREE  i  to  select  condition  or, 

EXAMPLE  •  to  see  explanation  of  condition. 


Selection: 


D.  24 


CONDITION  : 


C  I  ean 


GENERATED  DIRT 

AMBIENT  DIRT 

REMOVAL  OR 
FILTRATION 

.  ADHESION 

EXAMPLES 

Press  <RETURN>  when  ready  to 


Very  Little 

Some  /  Almost  None  Enters  Area 
Better  than  Average 

Si ight 

Normal  Office,  Inspection  Area 

conti nue . 


Screen  D.25 

RESPONSE:  Hit  <RETURN> 


DEGREES  OF  ROOM  DIRT  CONDITION 


DEGREE  EXAMPLE  CONDITION 

1  6  Very  Clean 

2  7  Clean 

3  8  Medium 

4  9  Dirty 

5  10  Very  Dirty 


Enter  DEGREE  I  to  select  condition  or, 

EXAMPLE  •  to  see  expialnation  of  condition. 


Selection:  2 

Please  indicate  the  normal  time  between  fixture  cleaning. 
Example:  Cleaned  once  every  three  years  *  36  months. 

Your  cleaning  cycle  time  (in  months)'’ 


Screen  D . 26 

RESPONSE:  Enter  2,  then  Enter  18 


D.  14 


.v,vv  v.v.'.'.v.  ,'. 


A 


You  have  chosen: 


A  Rood  Dirt  Condition  of:  Clean 

and  a  Cleaning  Cycle  of:  18  months 


Are  these  correct  (Y/N)? 


_ J 

Screen  D. 27 


RESPONSE:  Enter  Y 


ROOM  INFORMATION  REQUIREMENTS 

(1)  REFERENCE  DATA: 

Building  »  None  Room  •  None 

(2)  Room  Use:  General  Offices 

(3)  ROOM  DIMENSIONS: 


Iteration:  1 
FC  Requirements:  50 


Length:  40 
Width:  40 

(4)  ROOM  REFLECTANCES: 


Per laeter : 
Area : 


Celling  Color:  Winter  White 
Wall  Color:  Sliver  Lining 

Floor  Color:  Crayon  Blue 

(5)  Room  Condition:  Clean 


Cel  I lng  Height:  10 

160  Fixture  Height:  8 

1600  Working  Height:  2.5 


Reflectance:  83  % 
Reflectance:  70  % 
Reflectance:  20  % 

Cleaning  Cycle:  18  months 


Enter  selection  *  <x)  for  data  Input,  or  <0>  to  continue: 


Screen  D . 28 


RESPONSE 


Enter  0 


LIGHT  SOURCE  CHOICES 


CHOICE  LIGHT  SOURCE  TYPE 


(INC) 

(F) 

(MV) 

(MH) 

(HPS) 


Enter  CHOICE  •  for  source  selection:  2 


Do  you  want  to  use  a  fixture  stored  In  aeaory  (Y/N)  ? 


1 

2 

3 

4 

5 


i  ncanaescent 


F I  uorescent 
Mercury  Vapor 
Metal  Halide 
High  Pressure  Sodium 


Screen  D.29 

RESPONSE:  Enter  2.  then  Enter  N 


LUMINAIRE  INFORMATION 


Please  enter  the  following  Information  on  the  fixture  you  wish  to  use 
(Enter  *0*  to  get  help,  when  shown) 

Fixture  Make;  Llthonla 

Fixture  Model:  2PM4-240 

Maintenance  Category  (OR  ’O’): 


Screen  D.30 

RESPONSE:  Enter  proper  data  shown,  then  Enter  0 


n 


1  6 


maintenance  categories 


CHOICE 

EXAMPLE 

MAINTENANCE 

AMOUNT  OF 

CATEGORY 

WORK 

1 

7 

1 

Most 

2. 

8 

1  I 

- 

3 

9 

1  1  1 

Some 

4 

10 

1  V 

Some 

5 

11 

V 

- 

6 

12 

VI 

Least 

Enter  CHOICE  » 

for  selection  or, 

EXAMPLE  » 

for  exp  1  a  1  nation. 

Screen  D. 33 


RESPONSE:  Enter  5 


luminaire  information 


p | aasa  inter  the  following  Information  on  the  fixture  you  wish  to  use 
(Enter  'O'  to  get  help,  when  shown) 

Fixture  Make:  Lithonla 

Fixture  Model:  2PM4-240 


Maintenance  Category  (OR  ’O'): 
Distribution  Type  (OR  " 0* >  : 


V 


FIXTURE  DISTRIBUTION  TYPES 


TYPE 

DISTRIBUTION 

*  UP 

%  DOWN 

1 

Indirect 

90-100 

0-10 

2 

Seal -Indirect 

60-90 

10-40 

3 

Di rect- Indirect 

40-60 

60-40 

4 

Seal -Direct 

10-40 

60-90 

5 

Direct 

0-10 

90-100 

Enter  TYPE  •  for  selection: 


Screen  D.35 


RESPONSE:  Enter  5 


luminaire  information 


Please  enter  the  following  Information  on  the  fixture  you  wish  to  use 
(Enter  ’0’  to  get  help,  when  shown) 


Fixture  Make:  Llthonla 

Fixture  Model:  2PM4-240 

Maintenance  Category  (OR  ’O’):  V 

Distribution  Type  (OR  "O'):  5 

Spac 1 ng- to-Mount 1 ng  Height:  1-2 


Laap  Type:  F40 

Laap  Wattage:  AO 

Laap  Quantity:  2 

Initial  Luaens:  3150 


Maintained  Luaens  (or  'O'  for  default):  2770 


luminaire  information 

Pliase  verify  the  following: 


Fixture  Make: 

F 1 x  ture  Mode  I : 

Maintenance  Category: 
Distribution  Type: 

Spac 1 ng - to-Mount 1 ng  Height: 


LI thonla 
2PM4-240 


Lamp  Type: 

Laap  Wattage: 

Laap  Quantity: 
Initial  Lumens: 
Maintained  Lumen*: 


1*  everything  correct  <Y/N>  ? 


Screen  D.37 


RESPONSE:  Enter 


r 

LUMINAIRE 

INFORMATION  REQUIREMENTS 

Building  • 

Non* 

Room  *  None  Iteration:  1 

<  i  > 

LUMINAIRE 

INFORMATION: 

Fixture  File  * 

S/MH  Ratio: 

1 . 2 

Fixture  Make:  Llthonla 

Maintenance  Category:  V 

Fixture  Model:  2PM4-240 

Distribution  Type: 

S 

(2) 

LAMP  INFORMATION: 

Laap  File 

• 

Laap  Watts: 

40 

Laap  Type: 

F40 

Initial  Lumens : 

3150 

Quanti ty : 

2 

Maintained  Lumens: 

2770 

(3) 

DIFFERENT 

SOURCE  TYPE 

Enter 

selection 

t  ( x )  for  data 

Input,  or  (0)  to  continue: 

Screen  D . 38 


RESPONSE:  Enter  0 


Cr  1 1  1  ca 1 

PFR 

20 

CU 

PCR 

ao 

70 

Va 1 ues 

PUR 

RCR 

70 

70 

1 

(  1  ) 

(  2  ) 

2 

(  3  ) 

(  4  ) 

Plane  enter  the  following  values  from  the  Fixture's  CU  chart 
to  fill  In  the  chart  above.  If  value  is  not  given  on  Fixture's 
CU  chart,  enter  ‘O',  or  do  manual  extrapolation  and  enter  value. 


(  1  )  ?  77 

(  2  )  ?  75 

(  3  )  ?  71 

(  4  >  ?  70 


Screen  D.39 

RESPONSE:  Enter  proper  values  shown 


Please  check: 


Critical  CU  Values  from  the  Fixture  Chart 


PFR 

20 

PCR 

ao 

70 

PUR 

RCR 

70 

70 

1 

77 

75 

2 

71 

70 

Is  everything  correct  (Y/N)  ? 


FINAL  DESIGN  CALCULATIONS 


Building  «  None 

Room 

1  None 

1 terat 1  on : 

1 

Room  Use:  General  Offices 

FC  Required: 

50 

CCR  =  0.50 

Celling  Reflectance:  83 

Ef  f active: 

76 

RCR  =  1.38 

Ua  1  1 

Ref  1 ectance :  70 

FCR  =  0. S3 

Floor 

Ref  1 ectance  :  20 

Effective: 

21 

Fixture  Make:  Llthonla 

Model  »  2PM4-240 

2  tube 

Critical  PFR 

20 

S/MH  Ratio  * 

1.2 

CU  PCR 

80 

70 

Values  PUR 

70 

70 

Total  LLF  = 

0.  727 

RCR 

Final  CU  * 

0.  745 

1 

77 

75 

2 

71 

70 

Number  of  Fixture*  Required:  23.44 
How  uny  fixture*  do  you  went  to  use  ? 


Screen  D. 41 


RESPONSE:  Enter  24 


FINAL  DESIGN  CALCULATIONS 

Building  »  None  Room  •  None  Iteration:  1 

Room  Use:  General  Offices  FC  Required:  50 

Fixture  Make:  Llthonla  Model  •  2PMA-240  2  tube 


LLD  * 

0.  879 

Floor  Cavity  Factor  = 

1.007 

LDD  = 

0.853 

Final  CU  Value  * 

0.  745 

RSDD  * 

0.969 

Total  LLF 

=  0.727 

S/MH  Ratio  = 

1 . 2 

Spacing  Criteria  (ft): 

6.6 

Initial 

FC 

Maintained 

ENTER: 

(  1  ) 

To 

(2) 

To 

(3) 

To 

■> 


Level:  70  Fixture  •  Required: 

FC  Level:  51  Fixture  »  Used: 


do  another  Iteration  of  this  room 
go  to  Main  Menu,  clearing  all  variables 
get  a  hardcopy,  and  return  to  this  screen 


23.44 

24 


Screen  D.42 

RESPONSE:  Enter  3,  then  Enter  2  after  Hardcopy 

prints  (see  next  page) 


INTERIOR  LIGHTING  DESIGN  PROGRAM  OUTPUT 
BUILDING  #  None  ROOM  •  None  ITERATION:  1 


ROOM  INFORMATION: 

Use:  General  Offices 

Length:  40 

Width:  40 


FC  Required:  50 

Perimeter:  16C 

Area:  16C 


I  i 

ng 

Hel ght : 

10 

CCR:  0. 

50 

tu 

re 

Height: 

8 

RCR:  1 

38 

kl 

ng 

He  1 gh  t : 

2.  5 

FCR :  0. 

63 

Co 

1  or 

:  Winter 

White 

Ref 

1 ectance : 

83 

Co 

1  or 

:  Silver 

Lining 

Ref 

1 ectance : 

70 

Co 

1  or 

:  Crayon 

Blue 

Ref 

1  ectance : 

20 

Room  Condition:  Clean 


LUMINAIRE  INFORMATION: 

F l x tur e  File  » 

Fixture  Make:  Lithonia 
Fixture  Model:  2PM4-240 

S/MH  Ratio:  1.2 

Maintenance  Category:  V 
Distribution  Type:  5 

Necessary  Values  from 
Fixture’s  CU  Chart: 


ctance:  83  Effective:  76 

ctance:  70 

ctance:  20  Effective:  21 

Cleaning  Cycle:  18  months 


PFR 

20 

PCR 

80 

70 

PWR 

RCR 

70 

70 

1 

77 

75 

2 

71 

70 

RESULTS: 


Fixture  *  Required: 
Fixture  »  Used: 


23. 44 
24 


Lamp  File  # 

Lamp  Type:  F40 

Lamp  Quantity:  2 

Initial  Lumens:  3150 

Maintained  Lumens:  2770 


LLD:  0.879 
LDD:  0.853 
RSDD :  0.969 
Total  LLF :  0.727 

Floor  Cavity  Factor:  1.007 
Final  CU:  0.745 


Spacing  Criteria  (ft) 

Initial  FC  Leve 1 : 
Maintained  FC  Level: 


Hardcopy  printout  for  permanent  records 
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